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1.0 tjCNCRAt uranmuoN 



1.1 PROGRAn ABSTRACT 



This proQrMt hiII foriMt any di«k drly* connected to • UDA50 d'«t< 
controller. At the time o' thie writ'nQ, there ere thre« euch dr'^e« n 
eft ; stance - the RA60, RA60 and RA9t. No change* to th'ia program w 'll 
b« n e adad to format new disk dr'ves as they bacoma available. 

There are three ways to format a disk w'th this program; 

1. Reformat Format the disk with the bad sac tor Information that was 
written onto the disk at the factory. This Is the normal way to 
format a d i sk . 

2. Reconstruct - format the disk without using any bad sactor 
'nformatlon. This should ba usad only whan the bad sacter information 
has baan dastroyad or for some reason can no longar ba read from the 
disk. This method may also ba spacifiad in tha disk drive's maintananca 
manual for spacial casas (ag. changing an RM/RA60 spare WA from RH60 
format to RA60 format. 

3. Restore Forstat tha disk using bad aactor informption abt^inad from 
a disk file on tha XXDP* systap load tfavica. This aathod is prpvidsd 
for use by manufacturing. No f'llas are prpvidad. npr any aathod of 
obtaining tha filas. at this tiaa. 

The fora«t operation is parfortaad by a Qiagnoatic Ut'litias and 
Protocol COUP) program loadad into t*ta UDloO disk control Isr. Ttta 
hoat program siaply doM^lina looda the OUP progr— into t*%e U0A50 and 
monitors its axacution. Tha OUP prooram obtaino poraaotors frop t^a 
host progrsP (ag. driva nuabsr and forppt POds) and ra«MMts the hpst 



commo n ly callad a "diagnostic wa c bina- (ON) prpgraai. 

This program can only format in ona aod* St p t«a«. In RCSTORC moda. 
only one d' ik may bs salactad in tho hardHpra quastiono or an error 
asssaga will result and the program will stop. 

In REFomAT and RECONSTRUCT aodas. any nu*or of disk dr ivos may ba 
salactad. A U0A50 can only forawt eno disk at a tiaa. ao aach >d*sk on 
a UOASO will ba salactad aaquontially . If tha d!sk drivas to 1^ 
formattad are connected to diffarant UDASOa. ell UDASOa aill ^ run 
siaultanaowcly. for axampla. lata aasuia throa units are salactad for 
formatting in tha hardMare ouastions. units 1 and 2 are connactad to 
one UDA50 and unit S is connactad to a a'tffmrwnt UDA50 (Unibus 
addreasas are diffarant). This program will autoMotically stsrt 
almultanaouo fonsat oparations on units 1 and S. Whan unit 1 finishes 
for errors), unit 2 will be started. Aftar units 2 and 5 are finished, 
the program stops. 
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Th)« program m!!! stop after aac^i pass (all units formattad oncaK 
Tbara « no n««d to spac'fy a PASS SMitch on tf\m cooxnand I'na to t^tc 
Diagnostic Runtna Sarvlcas (ag. START/PASS: 1 ) . 

Spacial provisions r>ava baan mada to alio** this prograoi to run undar 
an APT systatK ir> iKanuf actur ' ng . This systam doas not alloM qijastions 
to ba aakad o^ an oparator. Such a condition also a>ii9ts undar XXOP* 
yhf\ th« UAM flag is sat. In this condit'on, only raformat moda can t>« 
salactad. Salactlng RECONSTRUCT or RESTORE mil rafcult 'n an mrrer. 
Also, a data of 1-JAN 70 Mill be mrittan on the disk. 



1.2 SYSTEM REQUIREMENTS 



This prograai Mas dasignad using tha POP- 11 Diagnostic Runt i ma Sar^icas 
revision C. Run t'ma anvironmants ar« datarminad by tha Runtime 
Services and may chan^ as nsM vera ions of the Services are developed. 
The initial version m<11 require the follOMing: 

POP II U^ibus processor 

2SK Mords of memory (minimum) 

Console terminal 

XXOP* load media containing this program 
One or more UDA50 eubsvatesia. The subsystem controllers 
type UDASO-A Mith microcotfa level S or greater. 

A system clock • e i t»>er type L or P • m!11 be uaed to time 

the OUP program and report runtime, if available. If no system clock 

's available, this program cannot detect a hung OUP program. 



2.0 OPERATING INSTRUCTIONS 



This sect'on contains a brief deacriptlon of the Runtime Services, for 
detailed information, refer to the XXOP* User's Manual (CHQUS). 



2.1 COMriANDS 



There are eleven legal c o — e nds for the Diagnostic Runtime Service* 
(Sca>ervi*or). Thi* aactien lists the commands and gives a very briaf 
description of them. The XXOP* Uaar'a Manual has more detail*. 

COMMAND EPfECT 



START Start the diagnostic from an initial state 

RESTART Start the diagnostic Mithout initializing 

CONTINUE Cont'nue at teat that Mas interrupted C after tC 



/U0£D0 POP II UOA OftV rniR HACRO VOS.OO luesday ?4 May 83 10:10 Pag* ^ 
USER OOCt-MENTATION 



'^r O 000% 



PROCEED 

AOO 

DROP 

DISPLAY 

TLAGS 

2FLAGS 



Continoa f'-om an arror halt 

Raturn to XXDP> Monitor (XXOP* OPERATION ONL r ! ) 
Activate a unit for taat'ng (all units ar« 
cenai darad to ba activa at utart tima 
Oaactivata a unit 

Print atatiatical nformat ion («aa aact'on 4.0; 
Typa a liat of all davica informst'on 
Twpa tha atata of all fla^a (aa* aact'on t'.l) 
Claar all flag* (aaa aaction 2.3) 



A coMtand can ba racogni zad by tha firat thraa character*. So you 
may, for aKampIc. typa STA" instead of START . 



2.2 



SWITCHES 



Thare arc s«w«ral stvitchas Mhich ar* uaad to modify auparviaor 
ooaration. Thasa SM'tchaa ara appended to tha la^l co«Mn«nds. All of 
the legal switches are tabulated belOM with a brief description of 
:h. In the descriptions beloM. a decimal number 's designated by 

■00000". 



SWITCH 
/TESTStLIST 



/PASS: 00000 
/FLAGS t^LGS 

/E OP .-00000 

/UNITS:LIST 



EFFECT 



Execute only those tests specified in 
the list. List is a string of test 
ni^*>ers. for example /TESTS : 1 :S: 7 - 10. 
Thia list Mill eauae tests t.5.7.S.9.10 to 
be run. All other test* Mill not be run. 
Execute 00000 pa*a*a (OOODD - 1 to 64000) 
Set specified flags. Flaps are descril 
in section 2.5. 



Report end of pa ss message after every 

00000 passM only. (OOM^ - I to 64000) 



TEST/AOO/OAOP only those units 



if led 



in the list. List example - /UNITS :0:5: 10- 12 
use units O.S.10,11.12 Cunit numbers • 0-63). 



le of switch usage: 

ST ART/TESTS : I -5/PASS : lOOO/EOP : 100 

The effect of this commartd will be: I) tests 1 thro^ 5 will be 
executed. 2) all unita mIII tested 1000 time* and S) the end of pass 
messages will be printed after each 100 passes orily. A switch can be 
recognized by the first throe characters. You may, for example, type 
'•/TES:! 5- instead of "/TFSTS: I -5". 

Below is a table that apec>fie» which switches can be used by each 
command. 



hi 
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TCSTS PASS ruA&S EOP UNITS 

STAMT XX XX X 

RESTART XX XX X 

CONTINUE X XX 

PROCEED X 

DROP X 

ADO X 

PRINT 

DISPLAY X 

FLAGS 

/FLAGS 

EXIT 



Fl*Os ar« uMd to smt uo c«rta!n oparat tonal pmrmmttmrm avich »« 
looping on arrc. All fla^a ar« claaratf at atartup and raMin claarad 
until axplic'tly aat oaing th« flaga awitcn. riaga ara alao claarad 
mftmr a START o' RESTART co— a n d unlaaa aat uaing tha flag awitch. 
Tha /FLAGS coMMand My alao ba uaad to claar all flaga. Uith tha 
•^caption of tha START. RESTART and Z^^LAGS coNMnda, no ceiMtanda 
affact tha atata of tha flagai thay rmmmtn aat or cl«mr04 m* 
apacifiad by tha laat flag awiteh. 



FLAG EFFECT 



HOE Halt on arror - control ia raturnad to 

runt i Ma aarvicaa coi— an d moda 

LOC Loop on mrr^r 

lER* Inhibit all mrr^r raporta 

IBE* Inhibit all mrror raporta axcapt 

fir»t laval (firat laval containa 
mrror typa. numbar. PC. taat and unit) 

IXE* Inhibit axtandad mrr^r raporta (thoaa 

callad by PRZNTX aacro'a) 

PRI Oiract aaaaagaa to lina printar 

PNT Print taat nuabar am taat axacutaa 

BOE -BELL" on mrr^r 

UAM unattandad aeda Cno manual intarvantion) 

lOU Inhibit prograM dropping of unita 

LOT Loop on taat 



•Error w a a ag aa ar« daacribad in aaction S.l 

S«a tha XXDP* t^r'a Manual for aora data! la on flaga. Yow may 
apacify Mora than ona flag with tha FLAG awitch. For axampla, to 
cauaa tha prpgra* to loop on mrror, inhibit mrror raporta and type a 
"BELL" on mrror. you may uaa tha following atring; 



/FLAr,S:L0E:IER:80e 
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3.4 HAADUARE QUESTIONS 



Uh«n • diagnoct'.c !• START*d. th« Runtime Scrvie** Mill prompt th« 
uMP for hardMr« inforwiation by typing "CHANGE MU CD ?' , Uh«n yoo 
unmmmr this quowtiun witH a '": ', th« Runt i ma Saryica^ Mill aak 'or the 
nuabar of unit* (in da«imal). Tou will than b« aakad tha 'oIloMing 
9ja*t!on« for aach unit. Uhart you anawar thi« quaation Mi'th an N , 
tha Runt i ma Sarvicaa Mill uaa tha anawaro built into tha program by 
tha SETUP utility (aaa chaptar 6 of tha XXOP* Uaar'a Manual). If you 
hava nava** run tha SETUP utility on this program fila. tha dafault 
valuaa liatad baloM C juat b«fora tha quaation mark) Mill ba uaad. 



UNIBUS ADDRESS Of UDA (0) 1721S0 ? 

Anawar Hith tha addraas of tha UDAIP ragiatar of ona UOA aa 
addrasaad by tha procaaaor with mamory mmnmgitmtrkt turnad off 
(i.e.. an avan 16-bit •Mr^m* in tha ranga of 160000 to 
177774). 

VECTOR (0) 154 ? 

Ana««ar M'th the interrupt vactor addraaa of tha tOA. A vactor 
addraaa in the ranga of 4 to 774 «ay b« apacif'ad. Tha UOA 
doas not have a vector "hard wired" to tt, ao any vactor not 
being uaed by this progra* and XXDP> My be u«e4. 

BR LEVEL fO) 5 ? 

Anawar with the interrvipt priority uMd by the UDA. Levels 4 
to 7 are accepted. Thia Level must Match the level 'hard 

wired" in the UOA by the priority plug. 

UNIBUS BURST RATE CO) 65 ? 

The UOA alIo«Mi th« ability to control the aaxiMjii nuaOer of 
worde tr9f\9f*rrma acroM the UNIBUS each time the UDA becow e a 
maater. The default ^9mmr of 63 will allow for the faateat 
execution of thia diagnostic pro g r a m. You may anamr with tha 
value your operating ayatem usee or usa zero which will tell 
the UDA to tvupply a value that sh<>uid work on any system. A 
decimal number in the ranga o' 0 to 63 may be specified and 
all valuaa ahc^ld work on any system. A larger value wtll 
allow for a f—tmr running program. The waluc will be peased 
diractly to the UDA during initializetion. 

ORIVf NUrBER (D) 0 ? 

Answer Hith the drive number of the drive you wiah to teat. 
Thia ia the number Mhich appears on tne "unit plug" on the 
front of the diatt drive. On a multi-unit drive, each sub-unit 
number on the drive must be tested aa a separate unit to 
completely test the drive. A maximum of aigftt logical drives 
may be teeted on one (.OA at a time (UDA configuration limit). 
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SE« OOCOMfcNTAriON 

2.S s.WTHAHE QUESTIONS 



Aftar you hava «n«Mcr«d tr«« Hardnara guaationa or aftar a RESTART or 
CONTINUE coMMnd. tha Runtima Sarvicaa Mill aak for aoftMara 
paraMatar*. You Mill ba proMptad by 'CHANGE SU (L) 7 ' I' you Miah to 
changa any paramatara. anaMor by typing "t". Tha aoftMara quaat<on« 
and tr«a dafault valuaa arm daacribad 'n tha naxt paragrapha. you may 
c*^anga tha dafault valuaa M>th tha SETUP utility. 

REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) T ? 



If thia quastion ia an«Mer*d "^ES". than tn« usar wanta tha 
REFORMAT mod* format oparation. REFORMAT mod* Mill >js* th* 
bad aactor information that is alraady on tha diak. Any 
othar mod* Mill d*atroy thi« information. If thia ouaation 
ia anaMarad "NO", th* folloMing Mill ba aakad to b* aura the 
ua«r knoMS Mhat h* is do'ng. 

NOT USING EXISTING INFORMATION UiLL DESTROY THE FACTORY BAD SECTOR 
INFORMATION ON THE DISK. 

AGAIN REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? 

This is aakad to varify that tha uaar doaa Mant to daatroy 
tha bad aactor inforatation on tHa diak and rvx> anothar 
format moda. If this ia anawarad "YES", than th* uaar Monts 
tha REFORMAT mod* format oparation and ua* tha axiating 
bad block information. If again anoMarad "NO", th* folloning 
ouaation Mill ba aakad. 

RECONSTRUCT BAD SECTOR nrORMATION (L) V ? 

A "YES" ansMsr Mill cauaa a raconatruct mod* format 
oparation. If anawarad "NO", th* following will ba aakad 
to varify tha uaar raally wanta tha roatora mod* format. 

00 YOU HAVE A FILE ON SYSTEM LOAD DEVICE 
CONTAINING BAD SECTOR INFORMATION (L) N ? 

Not* that Such a fila will not b* providad Mith tha diagnoatic 
and this mod* is not r«;o m m * nd a d. Th* format m!11 b*gin 
onltf on a "YES" anawar. Otharwtaa tha follOMing maaaaga 
Mill ba printad and tha program will abort. 

YOU CANNOT PROCEED WITHOUT SUCH A FILE. 

RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT DISK. 
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2 M«Nv.«Al INTERVENTION QUFSTTONS 



When rh« proor*** starts • Marning message Is printed to mmrr\ mproper 
(js« of this ror*iatt«p. 

WARNING: 

THIS ruRflATTER RROGRAn SHOULD NOT BE USED AS A DIAGNOSTIC 
TOOL. BUN THIS PROGRAM ONLY AS INSTRUCTED IN THE DISK 
DRIVE'S SERVICE MANUAL. 

ARE TOU SURE YOU WANT TO RUN THIS FORMATTER (L) N ? 

rou Must vtSMCP "YES" OP th« prograai Mill abort iMMd! atoly . This 
family of <t't9k driwas urn— a powsrful bad block r«v«etor'ng machanism to 
raplac* blocks that fail en dafactiv* araaa of th« disk media. As a 
disk is used and defective bloctts are detected. DEC ooerating systems 
replace the blocks Mith other blocks oi^ the disk (reserved for this 
purpose and otheritioe i naccessabie ) so that the disk constantly appears 
to have its full storage capacity of error free disk blocks. Formatting 
a disk of this type destroys this history information and is absolutely 
not recommended except in the cases specifically described in the disk 
dr've's service manual. Theee disks are fully formattttd vihen shipped 
from the factory, therefore there is no reason to run this formatter 
program at installation. 

Upon ansMsring "YES" to the above question, the date m>ll be asked 
for in the fonnat used by the XXDP* system. 

ENTER DATE AS DD-MTfl-YY (A) 1 -JAN- 70 ? 

The default is provided so th#t user need not supply the date. 
The date question Mill normally only be asked one time. If an 
improper ana wer is typed. "INPUT ERROR" is printed and the 
question is asked again. A two or four digit year may be 
typed. A four digit year must be 1900 or greater (ea. 
14-APR-1962). If only tMO digits are typed, the yeer is 
determined as folloMS; 

1. If the number typed is 70 or greater, a 19 is prefixed. 
Eg.. I-JAN-70 translates to year 1970 and 35-0EC-99 
translates to year 1999. 

2. If the number typed is less than 70. a 20 is prefixed. Eg.. 
l-APR-21 is translated to year 2021. 

If RECONSTRUCT mode is selected, the folloMina question Mill be asked 
for each disk before the fori»at operation beg<ns. 

SERIAL NUr«ER TOR UNIT xx UOA AT xxxxxx DRIVE xxx 
(A) ? 

A decimal n^Mber :n the ranae of 0 to 16446 74407S7095S1615 
must be entered (no default;. 
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If RFSTORC mod* 's selected, the foIIOMirtg qijeetion h'II be as^ed. 

NA.-* OF FHE CONTAINING BAD SECTOR INFORMATION FOR 
DISK TO BE F^ORMATTEO (A) ? 

If the f'tl* named doe* not ex'st on the aystem load device, 
the program mill aoort back to the XXDP« prompt after pr'nt'ng 
an error meseage. 



2.7 EXTENDED P- TABLE DIALOGUE 



Uh«r> you an«Mer the hardMare quaationa, you are building entries in a 
table that describes the devices under test. The simplest May to 
build this table is to ansMsr all questions for each unit to be 
tested. If you hove a multiplexed device such as a mass storag* 
controller Mith several drives or a coMKunicat ion device taith several 
lines, this becomes tedious since most of the ansnters are repetitious. 

To illustrate a more efficient method, suppose you are testing a 
fictional device, the XYll. Suppos e this device consists of a control 
module Mith eight units (sub-devices) attached to it. These units are 
described by the octal numbers 0 through 7. There is one hmrdmmrm 
parameter that can vary a mon g units called the Q-factor. This 
Q-f actor may be 0 or 1. BeloM is a simple Msy to build a table for 
one X^ll Mith eight units. 

• UNITS CD) ? 0'CR> 

UNIT I 

GSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 0<CR> 
Q. FACTOR (0) 0 7 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (D) ? 1<CR> 
Q-FACTOR fO) 1 ? 0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
S;JB-0EVICE # 10) ? 2<CR> 
Q-FACTOR (0) 0 ? «CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000«CR> 
SUB-DEVICE * (0) ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 4<CR> 
0 FACTOR (0) 0 ? <CR> 
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UNIT b 

CSH AOORfcSS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 6«CR> 
Q FACTOR CO) 0 ? 1<CR> 

UNIT C 

CSR AOOPESS (0) 160000* CR> 

SUB DEVICE • (0) ? 7<CR> 
Q-FACTOR CO) I ? <CR> 

Notice that t*>e default value for the Q factor change* »«hen a 
non-tfefault reeportae i« given. Be careful Mhen spec'fyirig multiple 
units! 

As you can see fro* the above example, the hardMare parameters do not 
vary significantly from unit to unit. The procedure sho«*n is not very 
efficient. 

The Runtime Services can take multiple unit specification* however, 
.et's boild th^ same table using the multiple specification feature. 

♦ UNITS (D) ? 8<CR> 

UNIT 1 

CSR AOOPESS (0) ? 160000<CR> 
SUB-OEVICE • (0) ? 0.1<CR> 
Q-FACTOR CO) 0 ? 1.0<CR> 

UNIT 3 

CSR ADDRESS CO) ? 160000<CR> 
SUB-OEVICE • CO) ? 2-S<CR> 
Q-FACTOR CO) 0 ? 0<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-OEVICE • CO) ? 6.7<CR> 
Q-FACTOR CO) 0 7 1<CR> 

As you can see in tKe above dialogue, the runt'tme serviCM will build 
as Many entries as it can Mith the infomstion given in any ooe pass 
through the Question*. In the first psM. tite entriM are built 
t»M sub-devices and a-'actor« Mere specified. Th« ServicM W us w 
that the CSR address is 160000 for both since it «■•• spdcif isd only 
once. In the second poos, four entries Moro built. This is because 
four sub-devieo« were specified. The "-" construct tolls the Runtiae 
Services to incretaent the data fro* tho first nunber to th* second. 
In this case. stA-devices 2. 5. 4 and 5 More specified. Clf the 
sub device Mere specified by addressos. th* incr*«*nt mould be by 2 
since address** Mu*t b« on an •v*n boundory.) Th* CSR oddr***** and 
Q factors for the four *ntri*s sr* *ss u w*d to b* 160000 and 0 
respectively since they Mere only specified once. The last tMO units 
are specified >n the third pass. 
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Th« Mhol« proc9«& could Hav* bean accoinpl ! a^ed in one pass as bhoMn 
beloH. 

• UNITS (D) ? 8<CR> 
UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE « (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0.1.0....1.1'CR> 

As you can s«« fro* this example, noli replies (commas enclosing a 
null field) tell the Runtime Serv ces to repeat the last reply. 



2. a QUICK START UP PROCEDURE 



To start-up this program: 

1. Boot XXDP* 

2. Give the date and ansxer the LSI and 50HZ Cif there 
I s a c lock ) oueat : ons 

3. Type "R ZUDEDO" 

4. Type "START" 

5. Answer the "CHANGE HU" queation m.tt\ "t" 

6. AnsMer all the hardMre quest iona 

7. Ans««er the "CHANGE SU" queation with "N" 

8. Answer "Y" to the "ARE rOU SURE ..." question following the 
warning. Please read the disk drive's service manual before 
answering this question. 

9. Type today's date. 

When you follow this procedure you will be using only the defaults for 
flags and software parameters. These defaults are described in 
sections 2.3 and 2.5. 
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Saavie of terminal dialogue to test two a'isks on one UOASO: 

DR>bTA 

CHANGE HU CD ? Y 
« UNITS (0) ? 2 
UNIT 0 

UNIBUS AOOPESS Of UOA (0) 172150 ? 

VECTOR (0) 154 ? 

BR LEVEL CD) 5 ? 

UNIBUS BURST RATE CD) 65 ? 

DRIVE Nur«ER CD) 0 ? 0.1 

CHANGE SW CD ? N 

WARNING: 

THIS rCRHATTER PROGRAM SHOULD NOT BE USED AS A DIAGNOSTIC 
TOOL. RUN THIS PROCWAM ONLT AS INSTRUCTED IN THE DISK 
DRIVE'S SERVICE MANUAL. 

ARE YOU SURE YOU WANT 10 RUN THIS FORMATTER (D N ? Y 

ENTER DATE AS OO-MTfl-YY (A) l-JAN-70 ? 14-APR-82 

UNIT 0 UOA AT 172150 DRIVE 0 RUNTIME 0:00:20 
rormat begun Version 6 

STOPPING THIS FORMAT AFTER THIS POINT WILL MAKE THE DISK 
UNUSABLE. AND WILL CAUSE THE DISK TO BE SPUN OOUN k»€N 
BROUGHT ONLINE. 

UNIT 1 UOA AT 172150 DRIVE I RUNTIME 0:00:2S 
Format begun Version 8 

STOPPING THIS FORMAT AFTER THIS POINT UILL MAKE THE DISK 
UNUSABLE. AND UILL CAUSE THE DISK TO BE SPUN OOUN UHEN 
BROUGHT ONLINE. 

UNIT 0 UOA AT 172150 DRIVE 0 RUNTIME 0:42:20 
ForiMt completed 

2 Revectored LBNS 

2 Priaery revectored LBNS 

0 Secondary/tertiary revectored LBNS 

0 Bmd RSNS 

0 Bad blocks in the RCT area Oum to data errors 
0 Bad blocks in the 06N area doe to data errors 
0 Bad blocks in the XBN area due to data errors 
2 Blocks retried on the check pass 
FCT used successfully 
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UNIT 1 «.OA AT 17piV> ORIVF 1 RUNTIME t:?S:10 
f c«^t co«pl«t*4 

ISI R«w*ctor«4 lBNS 

ISI Pr' wry r«v«ctor«tf LBNS 

O Sacendar-y/tcrtiary r«v«cter«4 LBNS 

0 Bad 'n::<S 

1 Bad blocks in tK« ACT ar«a dua to data arror* 
0 Bad blocks Sn tb« 06N mrmm dua to data arror* 
0 Bad block* In tH* X8N araa du* to data arror* 

249 Block* r«tr;«d ort tH« chock pa** 
^CT wi**d *ucc***f Willy 

CZUO£ EOP 1 

0 CUMULATIVE ERRORS 

0R> 

Saaipla o' tarwlnal dialoo^ja oo*ng tnrovigh ao'tttaro quaotlen*. 
Only ona d'9t> '<% baing taatad. 

0«>3TA 

CHANGE HM (L) ? N 
CHANGE SW (L) ? T 

REfORnAT USING EXISTING BAO SECTOR I»#"ORriATION (L) T ? t 
yARNINC: 

THIS FORMATTER PROGRAM SHOULD NOT BE USED AS A DIAGNOSTIC 
TOOL. RUN THIS PROGRAM ONLr AS INSTRUCTED IN T»C DISK 
DRIVE S SERVICE MANUAL. 

ARE tOU SURE rOU WANT TO RUN THIS FORMATTER (L) N ? r 

ENTER DATA AS OO-MTtl-TV (A> 1 JAN-70 ? 14-APR B2 

'iUNTIME 0:00:20 
^or«*t baoun V«r*;on 8 

STOPPING This format after THIS POINT WILL MAKE THE DISK 
UNUSABLE. AW) UILL CAUSE T^C DISK TO BE SPUN DOUN MKN 
BROUGHT OM.INE. 

RUNTIME 1:SS:4S 
Format coaplatad 

2 Ravactorad LBNS 

2 Priaary r«w*ctor«4 LBNS 

0 Sacondary/tartlary r«w«ctorod LBNS 

0 Bad RBNS 

0 Bad block* In tha RCT mrmm dkj* to data mrr^rm 
0 Bad block* in tha DSN ar*a du* to data arror* 
O Bad block* In tha XBN ar*a dua to data mrror* 
2 Block* r*tr:*d on tf-m cNtck pa** 
FCT i«««d auccaaafully 

CZiJOE EOP I 

0 CUMULATIVE ERRORS 

OR* 
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3.0 tRBOR I»#0»MATION 



5.1 TYPES or ERnOft f«SSAGES 



TM«r« •r« thr«* l«v*I« of error m«««a9«« that «av b« I aauad by ■ 
diagnoatlc: oaf^aral. baa^c and •■.tandad. Ganaral «rror «a««a9«« ar« 
alnaya prtntad unl«a« tha "lER" flag la aat C auction 2.1). Tha gartmrml 
arror «aaaao* of t*>« form: 

NMC TYPE NUMBER ON UNIT NUMBER TST NUTBER PC:XXXXXX 
arror Maaaaoa 

Mhara: NMC ■ diagnoatic na«a 

TYPE • mrror typa (StS TTL ERR. DEV »'TL ERR) 
NiraCR - Trer numtoar 

UNIT NUtOER • 0 • N (N ia Last un!t in PTABLE) 
TST NUMBER ■ t«at and aobtaat Mhara arror occurrad 
PC:XXXXXX • addraaa of •rrpr naaMo* call 

Syata* fatal •rr^r^ (STS f'TL ERR) ara uaad to raport arrora tnat ara 
fatal to tha ant'^ra diagnoatic prograiB. Tha dia0noatic atopa and tna 
Ri.r>ti«a S«rv!ca« pro«pt printad. 

Oavica fatal arrora (DvC ^TL ERR) ara viaad to raport «rr0r% that ara 
fatal to tha da^ica (nay toa aithar a UDA50 or d*ak driva). Taating 
atopa on that davica for tha raawindar of tha currant toat. 

Baaic arrop ■ ■ ■■aga a ara aaaaaaaa that contain moma additional 
inforaatien about tha mrror. Thaaa aro alnaya printad unlaaa tha 
lER" or "XBE- flaga ara aat (oactian 2.S). Thaaa laaaaaaa ara 
printad aftar tha a a aoc i a»ad ganaral l a aaaga. 

Extandad mrr^r aaaaaBaa contain oupplo«antary mrror inforaatiort auch 
M ragiatar contanta or good/bod data. Thaaa ara alwayo printad 
^laaa tha "lER". 'IBE ' or 'IXC" flaaa ar* aat (paction 2.S). Thaaa 
■■■■ ag « B ara printac mftmr tha a aa o c « atad ganaral mrr^r — a aag a and 
any aaao c i atad baaic mrr^ aaa a ag a a. 

Tha ganaral and baaic mrr«r waaaagaa fro* thia diagnoatic ara alwaya 
ona lino aach. Tha baa<c mm f mgt daf ina« Mhat program datactad tha 

•rror. tha IJ0A50 baing ciaod and tha ti«a of tha arror: 

HOST PROGRAM UDA AT kkkkkx RUNTIME hhh:iM»:«a 

Tha hoot progran (POP -11) datactad tha mrror. UDA AT 
idantifiaa tha mMrm** of tha UOASO baing taatad. It aay ba 
omittad if tha mrror is not apacific to ona UOASO. 
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Smp1« •rror 

C/UOt OVC »"TL EBR 00021 ON UHIT 00 TST 001 SUB 000 PC: •» 

HOST PftOGAAM UOA AT 172150 RUNTIME 0:00:1^ 
UOA RESIDENT DIAGNOSTICS OETtCTED f AltURf 

UOASA CONTAINS 104041 
REPIACE UOA noOULE M7485 

OUP proflrMM may aI*o pr'nt error in«««ag««. 7h«y ara printed 
• "•ctly M pp«Mnt*d by tha DUP ppograin and cannot b« suppraaaad by 
any flaoa. 



0«n«ral ««««aga 

bas >. wiao^aga 

• •tenda4 *>«i>'jagc 



S.2 SPECIFIC ERROR MESSAGES 



5.2.1 HOST PROGRAM ERROR MESSAGES 



Fol lowing ;« a i;*t o' th« arrer ma««bO»« tHat ««y ba printed by the 
diagnostic progra*. In tha li»t. a o m of tha nuatbara tHat nay /ary 
m'it*> aKOCution or prog^aai varaion ara a^KXtf^ a« "kkx". Thaaa includo 
prograM coi^tara and ri^tiaa. Othar n u mbara. such as unit nuMbar. 
driva nuabar. UDA50 address and data in ragistara ara filled m'>tr* 
saaipla nvMbers. Additional Information about tha error way fcllon tne 
error aassaga. 



00001 CZUDE SYS riL ERR 00001 ON UNIT 00 TST 001 SUB 000 PC: -k.hkk 
MOST PROGRAM UOA AT 172150 RUNTIME »:hk:kx 

I DON' T LIKE THE ANSUERS YOU GAVE TO THE HAROtMRE QUESTIONS 
UOA MAS MORE THAN ONE VcCTOR. BR LEVEL OR BURST RATE 

Uh«n ti%« h«rdMr« <|ki«stio'H» mmrm artswsra d . two units ««ra 
salactsd m'»th toa ssm UNIBUS addrass but xith a different 
vector. BR level or burst rate. A single U0A50 can have only 
one vector. BR level or burst rate. The program is aborted and 
retume to the Runtime Services prompt so that you can change 
the hardMara ouastions. 

00002 CZUDE SYS FTl ERR 00002 ON UNIT 00 TST 001 SUB 000 PC: kk^kkk 
HOST PROGIMn UOA AT 172150 RUNTIME k:«>>:kii 

I DON* T LIKE THE ANSUERS YCO GAVE TO THE HARDWARE QUESTIONS 
TWO UNITS SELECT THE SAfC DRIVE 

The hardMara questions for tMO units mare exactly the iiama. 
The program is aborted and retume to tha Runtime Services 
prompt so that you can change the hardware questions. 
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00005 CJUO£ S*S TTL ERR 00005 ON UNIT 00 TST 001 SUB 000 PC : 
HOST PROGRAM UDA AT 172150 RUNTIME 

I DON- T LXKE THE ANSUERS rOU GAVE TO THE HARDWARE QUESTIONS 
MORE THAN EIGHT DRIVES SELECTED ON THIS UOA 

Up to four physical d i •*< drives can b« attac^k•d to a U0A50 at 
on« tin*. A physical d'ak driva may b« fpo<n on* to four 
logical di«k dpivaa. CacK logical di«h driva ia conaidar«d onm 
orttt to tty* d<agr>ostic program. Evan though mop* than aight 
logical diak dr v** cart b* attac»>«d to on* UDASO. th* U0A50 
only aupporta a'ght. Th* program ia abortad and raturna to tha 
Rvjntiata Sarvicaa pronpt ao that you can cHanga Hardwap* 
ou*st iona. 

00004 CZUOt StS FTL ERR 00004 ON UNIT 00 TST 001 SUB 000 PC: 
MOST PROGRAM RUNTIME x-.A^iKx 

NOT ENOUGH ROOM IN MEMORY TO TEST TK. UNITS SELECTED 
PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME 

Thia ppograai do«a not lit* it th* nu«ib*p o^ unita that can 
b« t*«tad by apocifying a MaxiauM nunbap. What li«;t« 
th« pKjMtoap I a th* amount of ■lawory uaad to ator* data 
on each unit. You hava axca a da d th* nuabar of unita 
that ap* toatabl* at on* tiaia. StaPt progpa* ovar and 
aa'act ^attap un!ta. 

00008 CZUOe SYS FTL err OOOOS on UNIT 00 TST 001 SUB 000 PC: 
HOST PROGRAM UOA AT 172150 RUNTIME a:xii:kx 

I OON T LIKE THE ANSWERS YOU GAVE TO THE HMOWME QUESTIONS 
TWO UOAS USE THE SAME VECTOR 

Tha hardMOP* qua ationa for two t^ita apacifiatf d>ff*pant 
UDA50 Un;u«a add r aaaaa but Idantical vactor artdraaaaa. Th* 
ppogpwB ia aboptod and ratuph* to tha R«^t>«a S«pvic«« prompt 
ao that you can changa th* hprdMPra quaat'iooa. 

00009 CZUOE OVC FTL ERR 00009 ON UNIT 00 TST 001 SUB 000 PC: x>i»k>.^ 
HOST P«»OGRAri RUNTIME xrnxixK 

ONLY ONE DISK CAN BE SELECTED IN HU QUESTIONS IN RESTORE MODE. 
PLEASE START PROGRAM OVER AM) SELECT ONLY ONE DISK. 

If tha oparatop c h ooaa a to th* fonaattop !n RESTORE 
aoda, than only ona di*<t can ba aalactad in th* hardMor* 
ouaotiona. RESTORE «ode ia run in thia way bacauaa 
a fila containing tha bad block information ia uaad and 
that information matchaa only on* driva. 

00010 CZUOE OVC FTL ERR 00010 ON UNIT 00 TST 001 SUB 000 PC: kxi^xxh 
HOST PROGRAM RUNTIME xixxtxx 

THIS PROGRAM CAN ONLY REFORMAT A DISK IN UNATTENDED MODE 

Thia program n*ada to aak quaationa of th* oporatop. It 
pa'uaaa to Pun in RECONSTRUCT and RESTORE nkodaa bacaus* th* 
Qu**tion* obtain data that ia abaolutaly n*c**sap/. REFORMA^ 
meda ia allOM*d to Pun bacauaa only a data is n«*ded. Th* 
default data of 1 JAN 70 is uaad. 
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00014 CruO€ DVC FTL ERR 00014 ON UNIT 00 T5T 001 SUB 000 PC: 
HOST PROGRAM UOA AT 172150 RUNTIME H-.xf.xH 
'J0A50 CONTROLLER IS AT A REVISION LEVEL NO LONGER SUPPORTED 
BY THIS roPMATTER PROGRAM. THIS PROGRAM REQUIRES A UDASO-A 
CONTROLLER (MODEL 6) UITH MICROCODE VERSION AT S OR GREAiER. 

CONTROLLER REPORTED MODEL CODE AND MICROCOOf VERSION 

All UDA50-0'a (modulaa M7161-^) ar« not aupportad by this <i,aQ 
noatlc. Th« atodul* a«t M7405-6 th« only on« that can t>« t««t«a 
by this diagnostic. If th« controlUr la a UDA50-0 (M7161 2) 
;t Ml II not b« tastad. If tha controllar la a UDA50-A (M74S5 6) 
and It haa old m'cpecoda (tha mlcrocoda vara I on la laaa than 
3} this mfmQt mIII ba prlntad but taatlng will go on. If 
th« controll*' c^aiata of tha M7161-2 modulaa. Inatall ona 
with M74e5-6 modulaa. Do not intarmix tha tno. 't mIII not 
mork ! 

00020 CZUOE OVC fTL ERP 00020 ON UNIT 00 TST 001 SUB 000 PC: 
HOST PROGRAM UOA AT 172150 RUNTIME x:x«:»k 
MEMORY ERROR TRYING TO READ UOA REGISTERS 
ChCCK UNIBUS SELECTXON SWITCHES ON UOA MODULE M7485 
OR UNIBOS 

OR REPLACE UOA MODULE M748S 

A non-ax iatant w aw ory mrror occurrad whan tha hoat proara* 
triod to accaaa tha UDAIP and UDASA raglatara. Tha UDA 
Is at anothar addraaa (chack tha UNIBUb aalactloo SMi'tchas) 
or modula M748S Is brokan or tha UNIBUS Is brokan. 
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00021 CJUOE eve fTL ERR 00021 ON UNIT 00 TST 001 SUB 000 PCs 
HOST PROCiRAM UOA AT 172150 RUNTIHE 
UOA RESIDENT DIAGNOSTICS DEfECTED ("AILURE 

UOASA CONTAINS 105154 
REPLACE XA hOOULE M74e6 

Tha U}A Raaidant d'agnoatic datactad a fa' lure. Tne 
erfor ia diaplayad !n th« lX)ASA. Hara ara tha po<i<«:bla 
•rror value* and tha!r meaning: 

10*000 Fatal aaquncer error 

104040 0 proceaaor ALU error 

104041 - 0 proe ROM parity error 

105102 - 0 proc Mith no Board 9Z or RAH Qmr'itf error 

105105 - 0 proc RAM buffer error 

105152 D proc SOI error 

10515S - D proc Mrite mode wrap SEROES error 

105154 ■ 0 proc read mode SEROES. RSGEN. and ECC error 

106040 - U proc ALU error 

106041 - u proc Control Register error 

106042 ' U proc OFAIL/ROM parity error/Board «1 teat covtfvt Is xrong 
106047 - U proc Constant ROM error with 0 proc rx^'m^ SDI test 
106055 - IMSKpeetant trap found, aborted diagnostic 

106071 • U proc ROM error 

106072 - U proc ROM parity error 
106200 • Step 1 data error (MSB not set) 
107103 - U proc RAM parity error 
107107 - U proc RAM buffer error 

1071 IS - Board 92 test count «a* Mrong 

112S00 - Step 2 error 
122240 - error 

122300 - Step 3 error 

142300 - Step 4 error 

Replace the beard specifier. M7465 !s the Unlbus 
interface board. M7466 !s the SOI intarface board. 
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0002? CJUOC OVC TTL ERR 000?^ ON UNIT 00 TST 001 SUB 000 PC: «n«>m« 
HOST PROGRAM UOA AT 17<;15C RUNTIME x:k>^;h>« 
STEP BIT DID NOT SET IN UDA^A REGISTER DURING INITIAt IZATIQN 
STEP BIT EXPECTED 004000 
UOASA CONTAINS 000000 
REPLACE UOA MODULE M7485 

Th« UOA did not r««pood aa a^pactad during tha 
initialization Mquanca vthich comnunieataa uaing data 
in tha UOASA ragiatar. A normal raaponaa fro«< t»^ UOA 
contain* aitnar a STEP bit or an ERRU'^ bit ^f'nma aa 
foIIOMa: 

Bit 15 (lOOOOO) Error bit 

Bit 14 (040000) Stop 4 b't 

Bit 15 (020000) Stop 3 bit 

Bit 12 (010000) Stap 2 bit 

bit 11 (004000) Stap 1 bit 
Tha axpactad atap bit nor tha •rror bit a«t oithin tha 
•xpactad ti«a. 

00025 CZUOe OVC TTL ERR 00023 ON UNIT 00 TST 001 SUB 000 PC: xxkkkk 
HC^T PROGRAM UOA AT 172150 RUNTIME «:xk:hk 

UOA DID NOT CLEAR RING STRUCTURE IN HOST MEMORr DURING INITIALIZATION 
6 WORDS UERE TO BE CLEARED STARTING AT ADDRESS 040644 
riRST SEVERAL UORDS NOT CLEARED (UP TC 6): 
ADDRESS CONTENTS 

040644 000010 

040650 000010 

040652 000010 
REPLACE UOA NODOLE H74aS 

Tha UOA I'a to claar th« ring atructura (a cowu n icat iona ar«a 
uaad by tha UOA to talk to tha hoat) in hoat naaiory bafore 
Stap 4 of initialixatien. If tha UOA diagnoatica did not 
claar w a tery and did not flag an error, than error Maesaga 
(XX)23 ia diaplayed. Tha content* of each word in ii««ory 
ie aat to 177777 before the te«t. Failure of the UOA 
to clear each Mord indicate* • fault in the address 
interface to the Unibus. 

00024 CZUOE OVC FTL ERR 00024 ON UNIT 00 TST 001 SUB 000 PC: khkkkk 
HOST PROGRAM UOA AT 172150 RUNTIME x:»k:xx 

UOASA REGISTER DID NOT GO TO ZERO AfTER STEP i IfillE Of INITIALIZATION 
PURGE /POLE DIAGNOSTICS UERE REQUESTED 
UOASA CONTENTS 004400 

For better testing, the host can teat the PKJROE and POLE 
Mechanisai of the UDA, To do so tha hoat sets bitlS of the 
step 3 data and —fxH the data to the UOA. The UOA must 
go to zero and Mait for the purge and pole. If the LOA 
nevar gtent to zero, then error message 00024 is displayed. 
The UOA may have a bad M746S module or the UNIBUS may be 
broken . 
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'>EC» 0021 



00025 



00050 



0003 1 



CJU0£ OVC FTL ERR 0O02S ON UNIT 00 fST 001 SUB 000 PC: ..x,... 
HOST PROGRAM UOA AT 172150 RUNTIME x:xx:kk 

UDA 010 NOT RETURN CORRECT DATA IN UOASA REGISTER DiJRING INIUAi IZATION 

UOASA EXPECTED 004400 

UOASA CONTAINS 004000 
REPLACE UCA MODULE M74a5 

For vach st«p of in! t 'al ' 2at lOo . «p«c'f' c data s c>^p«ct«d 
to 6« diaplayad in t.h»« sX}ASA. If th« UOASA do«« not matc^ 
tb« axpcctad data. th«n 9rror maasag* 00025 >• diaolayad. 
Replace iJOA modula M7485. 

CZUOE OVC FTl ERR 00050 ON UNIT 00 TST 001 SUB 000 PC: xj-kkhk 
MOST PROGRAM UOM AT 172150 RUNTIME x:Kx:y.x 

UOA REPORTED FATAL ERROR IN UOASA REGISTER WHILE RUTMING OM PROGRAM 
UDASA CONTAINS 100004 

A ^icaaaga *rom th« UOA fi rmwara raporta an or%«xp«ctad 
failure. An mrror coda !a praaantad in tha UOASA. 
Har* is ii liat th« coda* m.^ thair naaninga: 

004400 UOA haa baan in! tad by a>t»>«r a bus in^t or by 
Mriting into t^a UDAIP. 

100001 - UNIBUS anvalopa/pACkat rasd mrror (parity or tiMcout) 

100002 - UNIBUS anva lop* /pack at xrita ^rror (parity or tiaiaout) 

100003 - UDA ROM w>d RAH parity arror 

100004 - UOA RAM parity •rror 

100005 - UOA ROM parity mrror 

100006 - UNIBUS ring raa4 «rror 

100007 - UNIBUS ring Mrit« mrror 

100010 - UNIBUS intarrvipt MMtsr fa<lura 

100011 - Host aecMS t i— out mrror 

100012 - Host axcsadM credit i:«!t 
100015 - UOA SOI nprdwar* fatal error 

100014 - OH XFC fatal error 

100015 ' Hardhtare tiaaout of instruction loop 

100016 • Invalid virtual circuit identifier 

100017 - Interrupt t«rite error on UNIBUS 

CZUOC DVC TTl err 00051 ON UNIT 00 TST 001 SUB 000 PC: kxkhkx 

HOST PROGRAM UOA AT 172150 RUNTIME k:xx:>ix 

NO INTERRUPT RECEIVED FROn OH PROGRAM FOR 5 MINUTES 

ASSUME PROGRAH IS HUNG 



All OH prograMS are required to coMRunicate Mith tr>e 
^>ost progrsMi so as to assure tHa nost proarav that 
tt%e OM progran is not hung up or in an endless loop. 
If the DM program has not done «o. the host program 
as*c«iies the OM !e hung and this message appears. 
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cruoe ovc ftl err 00052 on unit 00 tst 001 sub 000 pcj k.^^-i. 

HOST PROGRAM UDA AT 172150 RUNTIMF 

MESSAGE BUFFER RECEIVED FROM OM PROGRAM WITH UNKNOWN REQIJEST NiJMBER 
MESSAGE BUFFER CONTAINS: 

000001 000002 OOOOOS 000004 000005 000006 000007 

000010 000011 000012 000013 000014 

000017 000016 000019 000020 000021 

000024 000025 000026 000027 000028 

000051 000032 000033 000034 000035 



000006 000009 
000015 000016 
000022 000023 
000029 000030 



C00S3 
00054 



Th« OH program and tha hoat prooram coMRunicata n'lth 
•aeh othar uaing packats. Each packat mjat hav« a 
raouaat numbar act up by tha OM program artd tntarpcatad 
by tMa hoat program. This raquast numbar la not a 
known raouaat numbar. Tha problam may ba tha UNIBUS 
or aithar on* of tha UDA modulaa or a corrupted OM 
program, bord 1 contains tha OM ragusat numbar. and 
word 2 typically contain* tha driva numbar. Tsa raat 
of th* buffa" contains information specific to a 
DM reouest. The nuntoers in the eMsmpl* shot* 
th* order in Mhich ttorda arc displayed. 

CZUOE OVC FTL tRR 00055 ON UNIT 00 TST 001 SUB 000 PC: x>i»iixx 
HOST PROGRAM UDA AT 172150 RUNTIME x:>tx:xK 
RESPONSE PACKET FROM UDA DOES NOT CONTAIN EXPECTED DATA 
EITHER UDA RETURNED ERROR STATUS OR PACKET iMS NUT RECEIVED CORRECTLY 
COMMAND PACKET SENT RESPONSE PACKET RECEIVED 



000000 000020 
000000 000000 
000000 000002 
000000 014536 
000000 054674 
000000 000000 
000000 000000 
000000 051252 
OOOOCO 000000 
000000 000000 
000000 000000 
000000 000000 



000000 000020 
000000 000000 
000000 000202 
000000 0143S6 
000000 054674 
000000 000000 
000000 000000 
000000 0S12S2 
000000 000000 
000000 000000 
000000 000000 
OOOOOO 000000 



he hoat program inspactad ttxe reaponse packet Mhich Mas 
given by to UDA. The reaponae packet may have been In 
error with one of the follOMing points: 

1) The end code mm not as expected. 
2> The statu* coda ahOMOd an error occurred Mith the 
laat command. 

5) The command reference numbers (the first Mord) did 
not match. 

If 1 or 5 occurred, there mey have been a tranemission 
problem bctMoen the UDA and the host program. If 2 occurred, 
check th* error cod* in the MSCP apec i f i cat i on for further 
information. The packeta ar* diaplayed tMO long MOrds 
per line. Iom order Mord and byte to the right 
(corresponding to the MSCP long-Mord entity;. 



/ 
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00056 CJUOE OVC ffL ERR OOOSA ON UNIT 00 TST 001 SUB 000 PC: 
HOST PROGRAM UQA AT 1721S0 RUNTIME xtuw.xx 

NO INTERRUPT RECEIVED FROM uOA FOR 50 SECONDS 
WHILE LOADING DM PROGRAM 

After • DM proflram ha« b««n sent to th« UOA, th« ho«t 
proflram CKpacta an interrupt Mlthio 30 aaeontfa. 
Interrupt !• uaad to a««ur« tb« hoat program that th« 
DM program aana. If no interrupt oceur-*ed. then 
error meeeage 00056 !• diaplayed and the DM program >• 
asauKied to Se hung. 

00057 CZUDE DVC FTL ERR 00057 ON UNIT 00 TST 001 SOB 000 PC: 
HOST PROGRAM UOA AT 172150 RUNTIME %ikk:ak 

UDA REPORTED FATAL ERROR IN UOASA REGISTER WHiLk LOADING DM PROGRAM 

UDASA CONTAINS 100004 
RtPLACE UOA MOOtLE M7485 

While loading the DM program to the UOA, the UDASA 
t>ecame non-zero. When thia occura, it aignifi«a that 
the UDA microcode haa run acroas a fatal arrpr. Tha 
dieplayed value ie in octal. Chack th« error coda M<th 

t^^e 1 iat In 00050. 

00100 CZUDE OVC FTl ERR 00100 ON UNIT 00 TST 001 SUB 000 PC: xakmkk 
HOST PROGRAM UDA AT 1721SO RUNTIME xixxtxx 

DUP PROGRAM ASKED UNEXPECTED QUESTION (25) 

The DUP program ^mnd* a value that eerraapontfa to 

a epecific ouaetion or m a a a ag e . If thia value doea not 

fit into the range of quest ione. than thIa error appaara. 

00101 CZUDE DVC FTl ERR OOlOl ON UNIT 00 TST 001 SUB 000 PC: xkkkkk 
HOST PROGRAM UOA AT 1721SC RUNTIME »ixx:iin 

DUP PROGRAM REJECTED ANSWER TO DATE OR SERIAL NUMBER QUESTION 

After th« operator inputa the data/aarial ntjmttr, the 
DUP program Mill aok the hoat program for tham. If fo** 
some reason the date/a«rial nustoer Mas unacceptable to 
the DUP program, thia error maa aa ge mHI appear. Retry 
the program and if this error appears again, gat Out 
of the diagnostic runtime serw«css and back to the 
XXDP» pr-MDpt and reload the program. 
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I..SEO tXOCUMENTATION 

S.2.2 OOP PROGRAM ERROR MESSAGES 



Error M«««so*s returned by the UOA formatter are aa follOMS: 
GET STATUS failure 

This could be caused by a number of reaeons. Examples: the 

RUN/STOP SMltch is out. the URITE PROTEC^ switch is in. or the 
DIAGNOSTIC REQUEST bit s set by the drive. 



SOI send error 



An attempt to send an SOI c o mmand failed. The signal 
RECEIVER READY Mas not asserted. 



unsuccessful SOI command 

The response from an SOI c o mmand mm unaucceasful and all com ma nds 
should be successful for the formatter to ««ork . There may be a 
cable problem, drive receiver problem or UOA tranemitter problem. 



SOI receive error 

This message is preaented for several reaaena. Th« drive timed out. 
the first Mord from the drive Maa not a etart frame, there Mas a framing 
error on the SOI level 0 read (cable/racei ver/tranami tter problem), 
checksum error, or the buffer aize given by the formatter Mosn't large 
enough for the UOA. Agam, there may be a cable/recei ./er/tranam: tter 
problem . 



UNIBUS read error 

This is caused by one of tMO problems. While trying to read an overlay 
into the UOA buffer memory, the formatter came across a nonexiatant memory 
error. Or. there Moa a failure Mhile dOMnline loading the bad block 
information. There may be s omething Mrong Mith the UNIBUS or the UOA module 
M7485, 



formatter initialization error 

For this error to occur, the UOA must be processing the DM code improperly. 



Non existent unit number 

The desired disk dr've wasn't attached to the UOA. 
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OBN/XBN format error (driv* fORMAT command fa' lad) 

All attempts and ratri** to format a track failad. Th«ra may hav* b«an 
a timaoot of driva signal*. th« drive dropped the REAO/URITC REAO^ 
s'gnal during the format operation or the drive cloct' timed Out (Mhich 
'ndicates table/transm" tter/recei ver failures). 



fCT does not have enough good copies of each block 

There must at least two good copies of every block in the ^CT. for 
this error to occur. the media Is badly corrupted or the read/nr'te 
log'c "s fa'l"ng. 



SEEK error 



After a seek command completed successfully, the READ/WRITE REAOr 
signal was never set or the ATTENTION signal Mas set. 



RCT does not have enough good copies of each block 

There must be at least two good copies of every block in the HCi . for 
this error to occur, the media is badly corrupted or the r*ad/Mrit« 

logic is failing. 



LBN format error (drive fORHAT command failed) 

All attempts and retries to format a track failed. Thare may have bean 
a timeout of drive signals, the drive dropped the REAO/URITE REAOr 
signal during the format operation or the drive clocW timed out (tihich 
indicates cable/transmitter/recei ver failures). 



fCT xrite error 



A particular block failed to be written into every copy of the FCT. 
There is either terribly bad media or a write logic failure. 



RCT read error 



The formatter could not read at leaat one good copy of a particular 
block in the RCT area. 



RCT write error 



A particular block failed to be written into every copy of the RCT. 
There is either terribly bad media or a write logic fa<lure. 
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RCT full 

Thare were so many bad blocks on the madia that the PCT arcs Mas 
filled and could not hold any more. Thar* could be read/Mr ' te 
logic failure or bad cable connection. 



rCT read error 

Th* formatter could not read at least one good cooy of a particular 
block :n th* FCT area. 



fCT dOMnlir'te load error 

The formatter Mas led to believe that a bad block information f ' le 
wa* larger than it really mbs. 7h*re may be a IMIBUS or M7465 
problem. 



Oriv* in it tim*out 

After th* drive mss inited. the RECEIVER READY signal n«ver asserted. 



Illegal response to start-up question 

An overflow occurred Mh«n th* serial number went over 64 bits. 



fCl corrupted Format Invalid 

A problam was d*t*ct*d Mhil* using th* data in the FCT. Either 
the data Mas not Mritten properly or it has b*«n corrupted since the 
last format. Th* format on th* disk is no good and th* disk Mill not be 
usable by any OEC operating systam. Running th* formatt*r again may 
have a slight chance of succeeding. Oth*rMis*. r*plac* th* disk or HDA. 
If you do not hav* a spar* disk or HDA you may try to format th* disk 'n 
RECONGTRUCT mod*. If th* disk is not an RA80. order a r*placam*nt disk 
or HDA immediately. 
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Oftlve CRftOR ENCOUNTCReO STATUS RCSPONSE: 

STATUS (R TO L ): lAFl 0S04 ClOO 6800 OOAO OOIS 1000 

LAS1 BLOCK ACCfcSSEO (16 BIT OCTAL): 000000 000000 

Tha diati tfriv* r«portad an arror. Teu «ay aaa t*\m driva • fault 
l!g^t coMa on, Tha for««attar will attaaipt to claar t^a arror 
'•rt tt>m dr!va and conti nua. Th'a arror deaa not Maan that 
anything !• nacaaaar! ly wrong unlaaa thla arror la pr'intad mmn^ 
ti*a«. I' you aaa wany of thoaa arrora. you «ay wiah to atop 
tha forMt and run diagnoatic* on tha d^ati drlva. But r*Ma«*>ar. 
'f you atop tha for«iattar tha diak Mill not ba uaabla and tha 
diagnoat'c* Hill raport tha format !a bad. tha driva a atatua 
ia praaantad in ha^idaciMl 'n tha aaMa format aa tha diagnoat'c 
prograM. Tha laat blocv accaaaad ia a rapraaantat ior of tha 
last block t^mOmr arittan onto tha diak. 



•iORE THAN 1^.5« Of TRACK IS BAO 

Tha for«nottar found mora than ona aighth of tha blocka on a 
aingla track bad. fhia mrror deaa net «aan that anyth'ng i« 
nacaaaarily nron) unlaaa thia 9rror ia printed May ti«aa. If 
you »♦« many ©f thasa arrora, you mmy "iah to atop th« format 
and d'agnoatice on tha diek driva. But rawaafc a r , if you 
atop tha formatter the diek will net b* uaable and the 
d'agnoat'cs will report tha format ia bad. 



An example of hOM tre arrora are presented is beloM: 



R'JNTIHE 0:00:18 
Hor> OK stent unit nuaber 
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v-'SEB ooclmentation 

4.0 PfRMlRHANCE AND PROGRESS RFPORTS 

'h«r* rto stat'stieal rapct t^at can b« pr'ntad uo'ng tha 
O'agrkoatie Runt 'ma Sarv ca* PRINT coMnand. 

TKa OUR program 'ssvjaa t^^• 'ol lowing maaaagaw upon oormal 
cOMplot Ion: 

^or«at coa«>l*tad 

n Ravactoratf LBNS 

Uhara n !• tiia nt.#ito«r of LBNa ravaetorad 'n tha uaar data araa. 

n PriMary ravactorad LBNS 

l^tara n ts tna nuobar of .BNa mI^IcH Mara primary ravactora. 

n Sacortdary/tar Itary ravactorad LBNS 

kP>ar« n I a tna nuabar of tua LBNa mHIcH Mara aacondary or 
tartlary ravactora. 

n Bad RBNS 

kJhara n 'a t»^a nuMbar of RBNa MTtlcn Mara Pad. 

1^ Bad blocks In tr^a RCT araa dut to data arrora 

UKara n la tna nvMbar of blocka in tna total RCT araa «^ ch 
Mara bad. 

n Bad blocks '.r, tba OBN araa duta to data arrora 

i^tara n .a tha nu«to«r of blocka !n tna total DGN mrmm t*%'>c** 
Mara bad. 

o Bad block* n tna XBN araa dua to data 9rrorn 

Uhara n la tna n^jmbar of blocks In tn« total XBN araa t^Icn 
Mara bad. 
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Block* r«tri«d on tho e>««c>i pa«« 

U»%«r« n t^• nua^r o' block*] M»t'eM hod an orror on tn* *'ir%t 
road attOMpt a'tar 'o«*Mattlng. 



f viood auccoasfully or 
F'CT not uood 

Dcponding on tn« anaMor* to tn« aoftttara o«^«t;on« and tn« 
ava' lab' r<' ty o' tn« bad '««ctor 'nformatlon (TCT?, on« of tn««« 
masaaoas m<'1I b« pr'ntad. 



An ««,aMpl« of bow tn« Maaaagoa arc pr«*«nt«d i« baloM. 

RUNTIME 1:24:57 
formmt coavlatad 

5 Ravactorod LBNS 

5 Penary ravoctorad LBNS 

0 Sacondary/tartiary ravactorad LBNS 

0 Bad R8NS 

0 Bad block* In tha RCT araa dua to data mrrorm 
O Bad blocka in tt«a OBN araa dua to data arrors 
0 Bad blocka !n tna XBN araa dua to data mrr^rs 
5 Block* ratr'iad on tna chack paaa 
FCT Ma* not uaad 



5.0 TEST SUW1ARIES 



Trtara '<% only ona t*«t In th** protfraat • Ta*t It* only purpo** I* 

to load and rv^ tHa forwat prooram In a UOASO. 



/tOEOO POP 11 UDA ORV 'MTR HACRO VuS.OO Iu««««y 
PROGRAM MEAOCR 
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'.(/J OQSO 



1 

?5 

?e 002000 

27 

?« 

^9 
so 

31 

V 00?000 
53 

M 002000 
002000 
002000 
002001 
00200<> 
002003 
002004 
00200S 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
0020S0 
0020S0 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 



103 
132 
125 
104 
105 
000 
OOC 
000 

104 

060 

000001 

016040 

022620 

023006 

002130 

002144 

000124' 

000000 

000000 

000001 

000000 

002124 

000340 

000000 

000000 

003 
003 



.SBTTL PROGRAM HEAQFR 
aCNMOO 

i*THE PROGRAM HEADER IS THE INTFR^ACE BETWEEN 
I THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
I 

POINTER BGNSU. BGNaf T . BGNSETijP 
HEADER CZUOE.D.0.7200. .1.PRI07 



U »NAME 



L»REV: 

LfOEPC 

L»UNIT 

L»TIH. 

LIHPCP 

L»SPCP 

LI»#»1P 

L»SPTP 

LtLAOP 

L«STA: 

L«CO:: 

L»0TrP 

LIAPI: 

L»OIP: 

LtPftIO 

L tENVl 

L lEXPl 

LtMREV 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BtTE 

.BVTE 

.BfTE 

.ASCII 

.ASCII 

.MORD 

.UORO 

.MORD 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UORO 

.UOW) 

.UORO 

.UORO 

.errc 

.BYTE 



/C/ 

/// 

/U/ 
/O/ 
/£/ 

0 

0 

0 

/O/ 

/o/ 

TiPTHV 
7200. 
L*HARO 
LISOFT 

LISU 
LtLAST 

0 
0 

1 
o 

L IDISPATCH 

PRI07 

0 

0 

CfREVlSION 
CIEDIT 
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www 


OOPOS4 


OOOOOO 








OOOOOO 

www 






002060 


005456 






002062 


OOOOOO 


002064 




002064 


OOOOOO 


002066 






OOOOOO 






002070 


OOOOOO 


00?07? 




002072 


OOOOOO 


002074 




002074 


OOOOOO 


002076 




002076 


005500 


002100 




002100 


104035 


002102 




002102 


OOOOOO 


002104 




002104 


021100 


002106 




002106 


022116 


002110 




002110 


022114 


0021 12 




002112 


021072 


002114 




002114 


OOOOOO 


002116 




002116 


OOOOOO 


002120 




002120 


OOOOOO 







0 




.WOAO 


0 










.WORD 


0 


L tOiVP; : 








.WORD 


_»OvTfP 










.WORD 


0 


UliXP4j : 








.bJOPO 


C 


LtEXPS: : 








.WORD 


0 


^«AUT: : 










0 


L »0«JT ! : 








.uopo 


0 


LILUN: : 








.WORD 


0 


L»OeSP:! 








.UOPO 


LIOCSC 


L*LQAO: ; 








Em 




t.«£TP:: 








.UORO 


0 


L«ICP:: 








.UORO 


L«INIT 


L»CCP: : 








.WORD 


l»ClE«* 


L»ACP:: 








.UORO 


LJAUTO 


L»PRT:: 








.MORO 


LIPPOT 


L»TEST: 








' .UORO 


0 


I »OLr: : 








.tfORO 


0 


LIHIME: 








' .WORD 


0 



l3 

/UDEDO POP U UOA ORv »MTR MACRO VOS.OO ru«sda» J4 May 83 10:10 Pao* 
DISPMTCM TABLt 

1 .SBTTL DISPATCH TABLE 

2 
5 

4 I THE DISPATCH TABLE CONTAINS THE START Ux; AOO^ESS OT EACH TEST, 

•i I IT IS USED Bt the SUPERVISOR TO DISPATCH TO EACH TEST, 

6 I - 

T 

8 

9 002122 DISPATCH 1 

002122 000001 .WORD 
00212* LJOISPATCMs: 
002124 022150 .WORD 
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1 .SBTTL OEF-AULT MAROUAflC P TABLE 



'A 'a 0055 



4 

S 
6 
7 
8 

IC 002126 
002126 
002150 
002150 

11 

12 002150 
15 0021S2 

14 002154 

15 002156 

16 002140 
l" 002142 

002142 



000005 



172150 
000154 
000005 
000077 
000000 



I THE OerAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUtS 0^ 

J THE TEST DEVICE PARAMETERS. THE STRUCTURE 0^ ^MlS TA8LL 

8 IS IDENTICAL TO THE STRUCTURE OF THE HAROUARf P JABLES, 

; AND IS USED AS A "TEMPLATE" FOR BUlt DING TmE P TABLES. 



I 



BGNHy 0FPT8L 



.UORO 172150 

.WORD 154 

.WORD 5. 

.UORO 65. 

.WORD 0. 
ENDHU 



L»HW: : 
DFPTBL: 

i UNIBUS ADDRESS 

i VECTOR ADDRESS 

I BR LEVEL 

I UNIBUS BURST RATE 

t LOGICAL DRIVF NUMBER 

LIOOOO: 



.WORD LlOCOO-L*MU/2 
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SOTTUARC P TABLE 

I .SBTTL SCFTUARF P TABLE 

A. 



THE SOFTUAHE TABLE CONTAINS VARIOUS DATA USED Bt TmE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
SET UP AT ASSEMBLY TIME AND MAr BE VARIED Br THE OPERATOR 
AT RUN TIME. 



4 

*, 
b 

; 

9 

10 002142 6GNSU SFPTBL 

002142 000001 .MORO LlOOOl L9SU/2 

002144 L>SU:: 
002J44 SFPTBL:: 

II 

12 jOFfSET USE 

13 002144 000007 .WORD 7 ; 0. YES/NO ANSWERS 

14 002146 ENOSU 

002146 L 10001: 

15 

16 002146 ENOMOO 
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SCO 00S5 



4 

S 

6 

r 

9 
<» 

10 002146 



lOOOOO 
04O000 
02O000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
0OO004 
000002 
OOOOOl 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
OOOOOl 



000040 
000057 
00003O 
000055 
000054 



000540 
000500 
000240 
000200 



.SBTTL GLOBAL tOUATtS SECTIW 
BGNHOO 

I 'thE Gi.OeAL EOOATES SECTION CONTAINS PROGRAM FOuATES THAT 
t ARE USED IN MORE TKAN ONE TEST. 



EQUALS 
i BIT OiriNITIONS 



Bins 

BIT14 
BIT15 
BIT12 
BITll 
BITIO 
BIT09 
BIT08 
BITOT 
BITO« 
BIT05 
BIT04 
BIT05 
BIT02 
BITOl 
BITOO 

BIT9- 
BIT8- 
BIT7- 
BIT6- 
BIT5- 
BIT4- 
BIT3- 
BIT2' 
BITl- 
BITO- 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

B1T09 
BIT06 
8IT07 
BIT06 
BIT05 
BIT04 
BIT05 
BIT02 
BITOL 
BITOO 



; EVENT FLAG OEflNIUONS 

t EF52:EF17 RESERVED FQR SUPERVISOR TO PROGRAM COrtlUNICATION 



EF. START.. 52. 

EF. RESTART-. 51. 

Er.CONTINUE-- 50. 

EF.NEU-. 29. 

EF.PgR-. 26. 
I 

I PRIORITY LEVEL DEFINITIONS 



START COrviANO WAS ISSUE.0 
RESTART COMMAM) MAS ISSUED 
C0NTII4UE COrtMND UAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POUER -FAIL /POWER -UP OCCURRED 



PRIO?" 
PRI06.- 
PRIOS-. 
PRI04>' 



540 

500 
240 

200 
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GLOBAL EQUATED SECTION 

000140 PRI05** 140 

000100 PRI02-- 100 

000040 PRI01-" 40 

000000 PRZOO-* C 

loPERATOR FLAG BITS 



i 

000004 EVL-- 4 

000010 LOT" 10 

OOOOaO AOR»« 20 

C00040 iDU-« 40 

000100 ISR" 100 

000203 JAM* • 200 

000400 80E ■ • 400 

001000 PNT-« 1000 

002000 PRI«» 2000 

004000 IXE"' 4000 

010000 IBE" 10000 

020000 lER" 20000 

040000 LOE-- 40000 

100000 HOE" 100000 

11 

12 000015 CR- 15 



'>LG 0096 



I VALUE TO PASS TO PRINT riACRO TO END LINE 
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55 



18 
19 
30 
21 
22 
2S 
24 
25 
26 
27 
2S 
29 
SO 
31 
S2 
35 



jMACRO DEFINITIONS FQR GLOBAL EQUATES 

jTMESE MACROS ARE USED TO DEFINE INOfXES INTO A TABLE 



I CALLING SEQUENCE MUST BE 



TABLE 

ITEM 

ITEM 

ITEM 

END 



NAME 
NAME 
NAME 

SIZE 



BtTES 
BYTES 
BTTES 



i 
i 
I 
t 

i 
i 

! TABLE DEFINES THAT A TABLE IS ABOUT TO BE DEFINED AND END TERMINATES ThE DEFINITION. 
I ANY NUMBER OF ITEM LINES CAN APPEAR. NAME IS THE NAME OF THE SYrSOL BEING EQUATED TO 
!T^C INDEX. THE INDEX ALWAYS STARTS AT ZERO. BYTES SPECIFIES T>€ SIZE OF THE VALUE TO BE 
sSTOREO AT THAT INDEX IN BYTES. THE SIZE ARGUMENT TO THE END STATEMENT IS OPTIONAL, IT 
(BE EQUATED TO THE SIZE OF T»€ TABLE IN BYTES. THE SY^eOL T INDEX IS 'JSEO TO KEEP TRACK 
iOT THE INDEX VALUE AND WILL BE EQUAL TO THE SIZE OF THE TABLE AFTER T»€ END STATEMENT. 

.MACRO TABLE 

TINDEX-O 

.ENDM 

.MACRO ITEM NAME BYTES 
NAME-TINOEX 
TINDEX-TINOex»BYTES 

.ENOM 

.MACRO END SIZE 

.IF NB SIZE 
SIZE 'T INDEX 
.ENDC 

.ENDM 
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1 




2 




\ 




4 




S 


0O40O0 


6 


010000 


/ 


020000 


6 


040000 


9 


lOCOOO 


10 




11 




12 




IS 


005777 


14 




15 




16 




17 


002000 


18 


001000 


19 


000400 


20 




21 




22 




23 




24 


000177 


25 


000200 


26 


003400 


27 


034000 


2a 


040000 


29 


100000 


30 




31 


000400 


52 


004000 


33 




34 




35 




36 


000007 


57 


000070 


3a 




39 


000200 


40 


005400 


41 




42 




45 




44 


000001 


45 





MACRO V05.O0 Tucaday 24 Hay 8^ 10:10 Paga Sf> 



lUDA BIT DEFINITIONS 

lUOASA REGISTER UNIVERSAL READ BITS 

SA.Sl- 004000 
SA.S2- 010000 
SA.S3> 020000 
SA.S4- 040000 
SA.ERR> 100000 

iUDASA REGISTER ERROR STATUS BITS 
SA.ERC- 005777 

iUDASA REGISTER STEP ONE READ BITS 

SA.NV- 002000 
SA.A2- 001000 
SA.DI- 000400 
: 000577 

iUDASA REGISTER STEP ONE URITE BITS 

SA.VEC- 000177 
SA.INT- 000200 
SA.MSC- 005400 
SA.CMD- 054000 
SA.WRP* 040000 
SA.STP- 100000 

SA.nSl* 000400 
SA.Ctll- 004000 

iUDASA REGISTER STEP TUG READ BITS 

SA.nSE- 000007 
SA.CME- 000070 
i 000100 
SA.STE- 000200 
SA.CTP- 005400 

iUDASA REGISTER STEP TuO uRITE BITS 

SA.PRG- 000001 
: 177776 



'jEQ 00 



iSTEP 1 STATUS BIT 
iSTEP 2 STATUS BIT 
iSTEP 3 STATUS BIT 
I STEP 4 STATUS BIT 
lERROR INDICATOR 



i ERROR CODE 



iNON SET TABLE INTERRUPT VECTOR 
I 22 BIT ADDRESS BUS 
I ENHANCED DIAGNOSTICS 
iALL BITS RESERVED 



i INTERRUPT VECTOR (DIVIDED BY 4) 
ilNTEfWUPT ENABLE DURING INITIALIZATION 
ifCSSAGE RING LENGTH 
iCOrtfANO RING LENGTH 
iURAP BIT 

I STEP - HUST ALUArS BE WRITTEN A ONE 

iLSe OF MESSAGE RING LENGTH 
iLSB OF COrVMND RING LENGTH 



i MESSAGE RING LENGTH ECHO 

iCOMHANO RING LENGTH ECHO 

i RESERVED 

J STEP ECHO 

I CONTROLLER TYPE 



iENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 
iLOU ORDER MESSAGE RING BYTE ADDRESS 
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GLOBAC LQUATCS SECTION 



1 lUOASA REGISTER STEP THREE READ BUb 

2 

5 000177 SA.VCE- 000W7 
4 000200 SA.INE> 000200 
^ 000400 SA.NVE* 000400 

6 t 003000 

r 

8 jUOASA REGISTER STEP TMREF WRITF BITb 

9 

10 ; 077777 

11 100000 SA.TST- 100000 

12 

13 lUOASA REGISTER STEP FOUR HEAD BITS 

14 

15 000017 SA.HCV- 000017 

16 000360 SA.i-M. 000560 

17 J 003400 
18 

19 sUOASA REGISTER STEP FOUR URIT& BITS 

20 

21 000001 SA.GO- 000001 

22 000002 SA.LFC- 000002 

23 000374 SA.BST- 000374 



(INTERRUPT VECTOfi ECHO 
(INTERRUPT ENABLE ECHO 
(VECTOR NOT PROGRArtlABL f 
(RESERVED 



(HIGH ORDER MESSAGE RING BrTF ADDRESS 
(PURGE POLF TEST ENABLE 



(UOA MICROCODE VERSION 
(CONTROLLER MODEL 
(RESERVED 



(GO BIT TO START UDA FIRMWARE 
(LAST FAILURE CODE RE QUE Si 
(BURST LEVEL 
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4 

S 

:c 
:i 

12 

14 
I* 

is 

19 
2C 
il 
22 
25 
24 

^ 

26 
29 
5C 
51 
52 
53 
34 



lOOUOO 
040000 



000004 
000004 
000004 
000060 
000244 

OOOOOO 
000004 
000006 
000010 
000012 
000014 
000020 
000100 
000104 
000164 
0004 so 

000674 



OOOOOO 
000001 
177777 
001000 



iC0tt1M«/HESSAC£ OCSCRIPTOR BIT Dif INUION'. 



AC. OWN- 100000 
•»C.rLG« 040000 



lS€T W»€N iJOA GUNS t*lhG 
irtAC BIT 



lOrrSETS INTO MOST COTTIUNICAT IONS AREA WITH ONE DESCRIPTOR TQ tACM HlfiG 
iMO TUO PACKED AND BurrER ar;'!:. 



MC.ISZ 
MC.RSZ 
mC.ESZ 

MC.PSir 

HC.BSZ 

MC.INT 
HC.NSG 
MC.HCT 
HC.Ctt) 
MC.CCT 
HC.MEW 
mC .ff*K 
HC.CEV 
MC.CPK 

MC.Bfl 
HC.8f2 



4. 

4. 

4 . 
46. 
164. 

O. 
hC.INT 
HC.MSG 
MC.MSG 
MC.CHD 
MC.CW) 
hC.MEV 

MC.CEV 
MC.CPK 
HC.BTl 



.HC. IS/ 

• 2. 

♦MC.RSZ 

♦ 2. 

♦MC.RSZ 
♦MC.ESZ 
•MC.PSZ 
♦MC.ESZ 
•MC.PSZ 
•HC.BSZ 



MC.SIZ- MC.BF2.MC.BSZ 

• VIRTUAL CIRCUIT IDENTIFIER'S 

MSCP* 0 
LOG- I 
DIAG* 1 

OUP- 1000 



I SIZE Of INTERRUPT IfOICATOR uOROS 
iSIZE Of RING IN BrTES 
I SIZE or ENVELOPE WORDS BEfOPE PACKE ' 
(SIZE Of COrtMND AND «SSAG£ PACKETS 
I SIZE OF BUFFER 

{INTERRUPT INDICATOR WORDS STAR^ 
l»CSSAGE RING START 
iNESSAGC RING CONTROL WORD 
iCOftlAND RING START 
iCOmAND RING CONTROL UORCS 
iNESSAGE ENVELOPE START 
iMESSAGC PACKET START 
(COmAND ENVELOPE START 
iCOmAK) PACKET START 
» FIRST BUFFER 
I SECOND BUFFER 

I TOTAL SIZE OF HDST COW AREA 



iMSCP CIRCUIT 

I LOG CIRCUIT 

tOIAGNOSriC CIRCUIT 

lOIAGNOSMC AND UTILITIES PROTOCOL 
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I 
4 

• 

9 
<» 
10 
11 
12 
IS 
l« 
15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
2S 
2t> 
27 

2a 

29 
SO 
SI 
S2 
S3 
34 



hC.INT 



HC.MSC 
MC.HCT 

MC.CMO 
MC.CCT 



HC.CEV 
HC.CPK 



HC.BFl 



HC.Br2 



INTIW5UPT INOICATOB' 
HESSAGF RING 
COnrMNO RING 
MESSMC ENVELOPE 



COrtMNO ENVELOPE 



BurrER • 1 (RESPONSE TO Oh PNOGR/VI) 



BUTFER • 2 (REQUEST rROM OH PROGRMI) 



4 fc«rr', 
4 B'Tf 
4 B'TtS 



52 B*TES 



B2 BrTES 



82 BrTES 
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GCOBAl LCXiATEl SECTION 

I J COMMAND PACKt T OPCOOf. 

V OOOOOl OP. ABO- I I ABORT COMMAND 

4 000020 OP.ACC- 20 .ACCESS COMMAND 

000010 OP. AVI" 10 lAVAlLABce COMMAND 

b 000021 OP. CCD- 21 .COMPARE CONTROLCER DATA COMMANL 

000040 OP. CMP- 40 .COMPARE HOST DATA COMMAND 

000022 OP.ERS* 22 .ERASE COTtlAND 

9 000025 OP.rLU- 23 .FLUSH COMMAND 

10 000002 OP.GCS* 2 iG£T COMMAND STATUS COWMNO 

11 000005 OP.GUS* 5 .GET UNIT STATUS COMMAND 

12 000011 OP.ONL* 11 .ONLINE COMMAND 
15 000041 OP.RD- 41 (READ COMMAND 

14 000024 OP.RPL* 24 .REPLACE COMMAND 

15 000004 OP. sec* 4 tSET CONTROLLER CHARACTERISTICS COMMMC 

16 000012 OP.SLC- 12 .SET UNIT CHARACTERISTICS COTMANO 

17 000042 OP.UR- 42 .URITE COMMAND 

18 OOOOSO OP.MRO* 50 .MAINTENANCE READ COmANO 

19 000051 OP.MUR- 51 .MAINTENANCE URITE COtlANO 

20 000200 OP. END- POO .END PACKET FLAG 

21 000007 OP. SEX' 7 .SERIOUS EXCEPTION END PACKET 

22 000100 OP.AVA- 100 .AVAILABLE ATTENTION MESSAGE 

25 000101 OP. OOP* 101 lOUPLlCATE UNIT NUTfiCR ATTENTION MESSAGE 

24 000102 OP.ShC- 102 i SHADOW COPT C0r«>LETE ATTENION rCSSAGE 

25 000105 OP.RLC* 105 .RESET COmAND LIMIT ATTENTION MESSAGE 
26 

27 OOOOOl OP.GOS- 1 lOOP GET OUST STATUS 

28 OOOOOl OP.GSS" 1 iDUP GET OUST STATUS 

29 000002 OP. ESP- 2 lOUP EXECUTE SUPPLIED P«tOGRAM 

50 000005 OP.ELP- 3 jOUP EXECUTE LOCAL PROGRAM 

51 000004 OP.SSD- 4 lOUP SEM) STUO OATA 

32 OOOOOS OP.RSO- S lOUP RECEIVE STUD DATA 
55 

34 .NOTE: END PACKET OPCOOES (ALSO CALLED ENOCOOES) ARE FORMED BT ADDING T>C END 

35 .PACKET rLAC TO THE CO»ffWNO OPCODE. rOE EXAMPLE. A READ COmAtO S EM) PACKET 
56 .CONTAINS THE VALUE OP.RD'OP.ENO IN ITS OPCODE rjELD. THE INVALID COTtlAM) END 
37 .PACKET CONTAINS JUST THE END PACKET fLUG (I.E.. OP.EM» IN ITS OPCODE FIELD. 
58 . THE SERIOUS EXKPTION END PACKET CONTAINS THE SUM OF T»C EM) PACKET FlAG 

39 .PLUS THE SERIOUS EXCEPTION OPCODE SMOMN ABOVE (I.E.. QP.SEX.OP.EM)) IN ITS 

40 .OPCODE FIELD. 

42 .COMMAND OPCODE BITS S THROUGH 5 IfOICATE TtC COItl A ND CLASS. kMlCM IS ENCODED 

*5 ,AS FXLOHSj 

«4 , 000 IMMEDIATE COMNANDS 

45 , 001 SEQUENTIAL COWMNDS 

A6 , 010 NON-SEQUENTIAL C0»t1ANDS THAT DO NOT INCLUDE A BUFFER DESCRIPTOR 

47 , 100 NON- SEQUENTIAL COHNANDS THAT 00 INCLUDE A BUFFER DESCRIPTOR 
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I 




jCOMMANO 


MODir ifeR'j 


z 




« • 


020000 


4 


040000 




040COO 




lOOOOO 


MO. EXP" 


I 00000 


6 


010000 


MO . ERR* 


OlOOOO 




004000 


MO. jCM» 


004000 


8 


002000 


MO . SCL • 


002000 




000100 


MO. SEC' 


OOOlOO 


10 


000400 


MO . S£R • 


000400 


11 


000200 


MO. SSM" 




12 


000100 


nu . WBN" 






0004 00 


MO . UBV^ 


0004W 


14 


000020 


MO. SEO" 


000020 


15 


000001 


MD. SPO" 


000001 


16 


00000 <. 


Mr% cci la 
rV . r tU" 




L 


000002 


. VOL • 


OOUOOf 


18 


000001 


MO.NXU- 


000001 


19 


000001 


MO.RIP- 


000001 


20 


000002 




000002 


21 


000004 


MO. SUP- 


000004 


22 


000010 


MO. CUB- 


000010 


21 


000001 


MO. Pfil- 


000001 


2* 








25 




lENO PACKET FLAGS 


lib 








27 


0002O0 


Er.BBfl- 


000200 


28 


000100 


Er.BBu- 


000100 


29 


000040 


EF.LOG- 


000040 


SO 


000020 


EF.SCX- 


000020 


31 




, CONTROLLER FLAGS 


55 








54 


000200 


CF.ATN- 


000200 


55 


000100 


CF.MSC" 


000100 


56 


000040 


CF.OTM- 


000040 


57 


000020 


CF . TMS- 


000020 


58 


000002 


CF.SK)- 


000002 


59 


000001 


CF.576- 


000001 



SCO 004S 



iCLEAR SERIOUS EXCEPTION 
, COMPARE 

1 EXPRESS REQUEST 
(FORCE ERROR 

1 SUPPRESS CACHING (HIGH SPEED) 

(SUPPRESS CACHING (LOW SPEED) 

(SUPPRESS ERROR CORRECTION 

(SUPPRESS ERROR RECOVERY 

(SUPPRESS SHAOOUING 

(URITE-BACK (NON- VOLATILE) 

iURITE BACK (VOLATILE) 

tURITE SHADOW SET ONE UNIT AT A TIME 

iSPIN-OOWN 

(FLUSH ENTIRE UNIT 

(VXATILE ONLf 

(NEXT UNIT 

(ALLOW SELF DESTRUCTION 
(IGNORE MEDIA FORtlAT ERROR 
(SET URITE PROTECT 
(CLEAR WRITE -BACK DATA LOST 
(PRIMARY REPLACEMENT BLOCK 



(BAD BLOCK REPORTED 
(BAD BLOCK UMtEPORTEO 
(ERROR LOG GENERATED 
(SERIOL»S EXCEPTION 



(ENABLE ATTENTION rCSSAGES 

(ENABLE MISCELLANEOUS ERROR LOG rCSSAGES 

(ENABLE OT^CR HOST S ERROR LOG MESSAGES 

(ENABLE THIS HOST'S ERROR LOG MESSAGES 

(SHADOWING 

(576 BYTE SECTORS 
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4^ 



4 

S 

6 

T 

9 
<» 
10 
11 
12 
15 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 

i-e 

27 
26 
2S» 
50 
51 
52 
35 
M 
55 
56 
57 
56 
59 
40 
41 
42 
45 
44 
45 
46 
47 
48 
49 

51 



OOOOOl 
000002 
100000 
040000 
004000 
002000 
000100 
020000 
001000 
000004 



000000 
000004 
000010 
000012 
000014 
000020 
000020 
000034 



000014 



000016 
000020 
000034 
000040 
000042 

000014 



000014 
000016 
000020 
000022 
000024 



000034 
000040 



000024 
000034 



I UNIT FLAGS 



UT.CMR- 
Ur.CMW- 
ur .RPL- 
UF. INA- 
UF.SCM- 
UF.SCL- 
UF.UBN- 
Uf .UPM- 
UT.UPS- 
UF.576- 



OOOOOl 
000002 
100000 
040000 
004000 
002000 
000100 
020000 
001000 
000004 



,CO^•>AR£ READS 
iCOMPARE URITES 

J MOST INITIATED BAO BLOCK RfPLACt^S' 
• INACTIVE SHADOW SET 'JNIT 
{SUPPRESS CACHING (HIGH SPEED) 
(SUPPRESS CACHING CLOU SPEED) 
jURITE BACK CNQN- VOLATILE) 
iURITE PROTECT (HARDWARE) 
J WRITE PROTECT (SOFTWARE OR vOc JHf 
J 576 BTTE '.EC TORS 



J COMMAND PACKET OrrSETS 



P . CPr . 
P. UNIT. 
P.OPCD- 
P.HOD* 
P.BCNT- 
P . BUFF . 
P.UADR- 
P.LBN- 



0. 

4. 

6. 
10. 
12. 
16. 
16. 
28. 



GENERIC COMMAND PACKET 



P.OTRF- 12. 

t 

P.UNFL- 14. 
P.HSTI- 16. 
P.ELGF- 28. 
P. SHUN- 32. 
P.CPSP" 34. 

P.R8N- 12. 



P . VRSN- 
P.CNTF- 
P.HTMO- 
P.USEF- 
P.TIME- 



P.RGID" 
P. ROOF. 



P.OMDT. 
P . OVRL ' 



12. 
14. 
16. 
18. 

20. 



28. 
52. 



20. 
28. 



OFFSETS: 
{COMMAND RE^EPENCt NUr«ER 
{UNIT NUMBER 
{OPCODE 
{MODIFIERS 
{BYTE COUNT 
{BUFFER DESCRIPTOR 

{UNIBUS ADDRESS OF BUFFER 0E<iCRIPT0K 
{LOGICAL BLOCK NUMBER 

ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 

{OUTSTANDING REFERENCE NUMBER 

ONLINE AND SET UNIT CHARACTERISTICS COWAND PACKET OFFSETS: 

{UNIT «^LAGS 

{HOST IDENTIFIER / RESERVED 
{ERROR LOG FLAGS 
{SHADOW UNIT 
{COPY SPEED 
REPLACE COMMAND PACKET OFFSETS: 

{REPLACEMENT BLOCK NUI«£R 

SET CONTROLLER CHARACTERISTICS COr*IAND PACKET OFFSETS: 

jMSCP VERSION 
{CONTROLLER FLAGS 
{MOST TIMEOUT 
jUSE FRACTION 
(OUAO-UORO TIME AND DATE 

MAINTENANCE READ AND MAINTENANCE WRITE COWAND PACKET OFFSETS: 

I REGION ID 
{REGION OFFSET 

EXECUTE SUPPLIED PROGRAM COMMAND PACKET OFFSETS: 

lOMDT TERMINAL ADDRESS (MAINT WRITE ONLt) 
{BUFFER DESCRIPTOR FOR OPERLAYS 



/U0£00 POP II UOA OAV rniR MACRO V05.00 
r4.0eAt. ClXiATES SECTION 



?4 Hay Bi lOtlO Page 4<S 
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1 




lENO PACKET 


OTFSIiTS 






1 




wti^" xw cniw fm^^i^r 1 ■ 3C 1 J ; 


4 


000000 




A 
V . 


iCOMnANO REFERENCE NJMBER 


«. 


000004 


P. UNIT- 


4. 


lUNIT HJMBin 


6 


000010 


P.OPCD- 


«. 


lOPCOOE (AuSO CALLED EMKOOE) 


» 


OOOOII 




Q 




9 


000012 




lU . 


iSTATUS 


9 


000014 




xe > 


iBrTE COUNT 


10 
II 


000054 




?H 


,f IRST BAD BLOC*- 


12 




( 




GfeT COMMAND CTATUS END PACKET OFFSETS: 


15 


000014 


P HTBT ■ 


1 3 


lOUTSTANOINC. REFERENCE NiJMBEP 


14 

15 


000020 




iO • 


1 COMMAND STATUS 


16 




t 




GET UNIT STATUS END PACKET OFFSETS: 


17 


000014 




Xc • 


iMULTI UNIT C00£ 


IS 


000016 




1 A 


(UNIT FLAGS 


I"» 


000020 




iO « 


iMOST IDENTIFIER 


20 


000024 


P.UNTI- 


20. 


J UNIT IDENTIFIER 


21 


000054 


P.HEDI- 


26. 


1 MEDIA TYPE IDENTIFIER 


22 


000O40 




%P 

. 




23 


000042 




* 


i SHADOW STATUS 


24 


000044 




30 • 


.TRACK SIZE 


25 


000046 


p mpa 


3a . 


1 GROUP SIZE 


26 


000050 


p rvi • 


An 


i CYLINDER SIZE 


27 


000054 




44 


iRCT TABLE SIZE 


26 


000056 




At- 


iRBNS / TRACK 


29 
50 


000057 


p or Tr ■ 




jRCT COPIES 


51 




• 




ONLINE AND SET UNIT CHARACTERISTICS END PACKET AfC A«^AILA8LE 


32 








ATTENTION MESSAGE OFFSETS: 


55 


000014 


P.^«.UN- 


12. 


iMULTI-UNIT CODE 


54 


OC0016 


P.UNFL* 


14. 


lUNIT FLAGS 


55 


000020 




1 A 


l'^v3 1 XUCV X'^ XCn 


56 


000024 


P IMTTb 

~ • \^ 1 X 


cv • 


iUNIT IDENTIFIER 


57 


0OO054 


P MFDT • 




iMEDIA TYPE IDENTIFIER 


58 


000040 


P <U<M> 




iSHADOU UNIT 


59 


000042 


P <iHCTa 
~ . orid 1 • 




iSHAOOU STATUS 


40 


000044 


p.uNa- 




lUNIT COmAND LIMIT 


41 


000050 


P.UNSZ- 


40. 


(UNIT SIZE 


42 
4* 


000054 


P WBa 


• ^ a 


iVfliiMF VBT41 !■ ■mrn 

1 »i^\^^t 3CnXnL I^^WCW 


44 




i 




SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 


45 


000014 


P VA^a 


xc . 


iMSCP VERSION 


46 


000016 


P.CNTF* 


14 


{CONTROLLER FLAGS 


47 


OwJ020 


P.CTMO* 


16. 


1 CONTROLLER TIMEOUT 


Mm 

*o 


000022 


P.CNCL- 


18. 


(CONTROLLER COMNAM) LIMIT 


49 

50 


000024 


P.CNTI. 


20. 


> CONTROLLER ID 


51 








GET OUST STATUS END PACKET OFFSETS: 


52 


000014 


p.oexT* 


12. 


iOUST PROGRAM EXTENSION 


55 


000017 


P.OfLG- 


15. 


•STATUS FLAGS 


5* 


000020 


P.OPI- 


16. 


•PROGRESS INDICATOR 


55 


000024 


P.DTO- 


20. 


(TIMEOUT VALUE 
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1 




» 


000037 


4 


000040 




000000 


b 


000001 


f 


000002 


9 


000003 


9 


000004 


10 


000005 


11 


000006 


12 


000007 


15 


000010 


14 


000011 


15 


000012 


lf> 


000013 


l"" 


000037 


l« 




1>> 




20 




21 


000010 


22 


000004 


23 




24 


000002 


25 




26 


000001 


27 




28 




29 




SO 




31 




32 


010000 


53 


oaKxx) 


34 


050000 


35 


040000 


56 


050000 


57 


060000 


3S 




39 


170000 


40 




41 




42 




45 


000000 


44 


000004 


45 


000021 


46 


000040 


47 


001000 



iSTATUS AND EVENT CODE DEFINITION 

ST.HSK« 57 
ST. sue- 40 

ST. sue- 0 
ST.CMO* 1 
ST. ABO* 2 
ST.OTL- 5 
ST.AVL- 4 
ST.MFE- 5 
ST.UPR* 6 
ST.CMP. 7 
ST. OAT- 10 
ST.MST- 11 
ST.CNT. 12 
ST. DRV" 13 
ST.OIA- 57 

jGET DOST STATUS TlACS 

or. ACT- 010 
Of.NES- 004 

Of.LCL' 002 

OT.SA- 001 



iOUP rCSSAGE TrPES 

OU.QUC - 10000 

OU.OFL • 20000 

OO.tt€ ' 50000 

OU.TER • 40000 

OU.FTL • 50000 

DU.SPC - 600CO 

DU.TYP- 170000 

lOH PROGRAM HEAO€R OEf INITIONS 

OHTRLN- 0 

OMOVW.- 4 

OflTHO- 21 

OrVIAIN- 40 

OHTHST- 1000 



I STATUS / EVENT CODE MAOK 
.SUB -CODE MULTIPLIER 
.SUCCESS 

J INVALID COMMAND 
(COMMAND ABORTED 
jUNIT-OF^'LlNC 
(UNIT -AVAILABLE 
iMEOIA rORMAT ER»C» 
iURITE PROTECTED 
(COMPARE ERROR 
I DATA ERROR 

(HOST BUFFER ACCESS ERROR 
iCONTRXLER ERROR 
(DRIVE ERROR 

(MESSAGE FROM AN INTERNAL OIAGNOSTIC 



I SET IF THIS OUST CURRCNTl f ACTIVE 

(SET IF THIS DOST MILL NOT ACCEPT THE EXECUTE 

(SUPPLIED PROGRAM COmAND 

(SET IF THIS DUST HAS A LOCAL LOAD MEDIA FOR LCAOING 
(DIAGNOSTICS AND OTHER UTxLlTIES 
(SET IF ANT PROGRAM EXECUTION UNDER TmIS OUST 
tOISAeLES T»€ OPERATION OF ALL OT»€R SERVERS IN Tr€ 
I SAME SYSTEM AS TfC DUST 



iQUESTION 
(DEFAULT QUESTION 
(ItrORnATION 
t TERMINATOR 
(FATAL ERROR 
(SPECIAL 

(MESSAGE TYPE FIELD 



(OFFSET TO SIZE OF PROGRAM NEEDING OOUNLINE LOAD 

(OFFSET TO SIZE OF OVERLAY 

(TIMEOUT VALUE IN SECONDS (ONE BYTE) 

(OFFSET TO FIRST UORD OF MAIN PROGRAM 

(ADDRESS IN DM FILE CONTAINING FIRST BtTE OF ^€AO£R 



juotoo PDP a uoA onv »mtp macro vos.oo 

GLOBAL EQUATES SECTION 



ITEM 
ITEM 



ITEM 
ITEM 
ITEM 
ITEM 



4 

fe 

/ 

5 
9 

10 00^146 TABLE 
11 

12 002146 
IS 00214(> 

14 000077 

15 100000 

16 002146 

17 000777 
le 007000 

19 002146 

20 002146 

21 002146 

22 002146 
25 000002 

24 000004 

25 OOOOlO 
26 

27 000020 

2a 

29 

30 000040 
51 000100 
S2 

35 000200 

54 002146 ITEM 

55 002146 ITEM 

56 002146 ITEM 

57 002146 ITEM 
56 002146 ITEM 
59 002146 ITEM 

40 002146 ITEM 

41 002146 ITEM 

42 002146 ITEM 
45 002146 ITEM 

44 002146 ITEM 

45 002146 ITEM 

46 002146 ITEM 
4 7 002146 ITEM 
4a 

49 002146 



Tuesday J4 May 8^ 10:10 Pag* 4^ 
jCONTROLLtK TA8LI: DEHNITIONS 

loNE TABLE Win. Bt SET UP Br INITIALIZE SECTION FOR EACH UOA SELECTED 
iTOft TESTING. TABLES ARE CONTIGUOUS. TMF END OF TmE TABLES IS 
J MARKED BY A WORD Or ZEROS. 

I TME riRST TABLE IS POINTED TO B» TmE CONTENTS Off CTA8S. 
iTME NUMBER or TABLES IS CONTAINED IN CTRlR:«. 



'>tO 0047 



C.UAOR 
C.UNIT 

CT.ONT- 
CT.AVL' 
ITEM C.VEC 

CT.VEC- 
CT.BRL- 
C.BST 
C.JSB 
C.JAO 
C.FLG 

CT.RN- 
CT.Cf©' 
CT.MSG- 



? 
2 

000077 

BIT15 

2 

0007 77 

007000 

2 

2 

2 

2 

BITl 
BIT2 
BITS 



CT.REQ- BIT4 



CT.STA- 
CT.TMl- 

CT.TM2. 

RING 

ORO 

ORl 
,0R2 

ORS 

0R4 
,0R5 
,DR« 
,0R7 

TO 

TOM 

TOT 

PRI 

REF 



BITS 
BIT6 

BIT7 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

4 

2 



iSTART A TABLE DEFINITION 

iUNIBUS ADDRESS V UOAIP REGISTER 

t LOGICAL UNIT NUMBER (FIRST) 

i SET UHEN NOT AVAILABLE »0R TESTING 

I VECTOR ADDRESS 
I BR LEVEL 
i BUKST LEVEL 

I INTERRUPT SERVICE ROUTINE FQM CONTROLLER 

I T»CSE ^UO UOROS LOADED WITH (JSR RO.JDASRv] 

iFLAGS 

lOK PROGRAM RUMIINC 

iCOmAND ISSUED. WAITING FOR RESPONSE 
iMESSACE RESPONSE RECEIVED 

it*CNEVER THIS BIT IS SET. CT.DO IS CLEARED 
iBUTFER HAS BEEN GIVEN TO UOA FOR REQUEST 
I SET IMENEVEA REM) STUD DATA COrVMNO 
iGIVEN TO UDA 

iCET DUST STATUS COWANO MAS BEEN SENT 

I ONE TirCOUT PERIOD HAS EXPIRED BETWEEN SEND OR 

I RECEIVE DATA RESPONSE 

iSECO»fi TirCOUT HAS EXPIPEO 

I RING BUTFER AOORESS 

I POINTER TO DRIVE TABLES 

t IF ZERO. NO DRIVE TABLE E ISTS 



END C.SIZE 



iTlrCOUT COUNTER 
I (TyO WORDS) 

iDUP PROGRAM TirCOUT VALUE IN SECONDS 
lOUP PROGRAM PROGRESS INDICATOR 
iCOrtlANO REFERENCE NUMBER 

I SIZE OF CONTROLLER TABLE IN 8TTES 



/UDEOO POP U UOA ORV » MTR HACHU VOS.QO Tuesday 2* May 8^ 
GLOSAL tOUATCS SECTION 



10:10 Page 



46 



'>C0 0046 



002 I4€ 



4 
5 
b 

T 

s 

9 002146 
10 002146 
11 
12 

IS 002146 
14 

IS 002*46 



000077 
100000 



I DRIVE TABLE OEriNITIONS 

.'one drive table UILL be set up Br THE INITIALIZE SECTION FOR EACH 
lORIVE SELECTED FOR TESTING. EACH TABLE IS POINTED TO Br A 
tUORO IN THE CONTROLLER TABLE ON WHICH THE ORIVF EXISTS. 



TABLF 

ITEM t 
I TEH C 



ITEM D, 



DRV 

UNIT 
DT.UNT- 
DT.AVL- 

SERN 



2 
2 

000077 

BIT15 

22. 



END O.SIZE 



iSTART A TABLE DEFINITION 
lORIVE NurOER 

I '.OGZCM. IXIT NUMBER OF DRIVE 

i SET WHEN NOT AVAILABLE FOR TESTING 

lOZSK SCRZAi. NU»«CR 

(SIZE OF DRIVE TABLE IN BrTES 
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1 
? 
J 
4 
5 
6 

; 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
20 
29 
SO 
31 
32 
33 
34 
35 
36 
37 

3a 

39 
40 
41 
42 
43 



iUS£FUL INSTRUCTION OtMNITIONS 

.mCRO AND ARC. ADR 

.LIST 



.ENOM 



.NLIST 



.MACRO OR ARC. ADR 

.LIST 



.ENOM 



.NLIST 



.MACRO PUSH ARC 

.IRP X,<ARG> 
.LIST 



• ENOM 



.NLIST 
.ENOM 



.HACRO POP MRG 

.IRP X.<ARG> 
.LIST 



.ENOM 



.NLIST 
.ENOM 



0049 



iLOGICAl. AND INSTRUCTION 



BIC **C'ARG'.AOP 



I LOGICAL OR INSTRiXTION 



eiS «ARG,AOR 



iPUSM INSTRUCTION 



HOV X.-CSP) 



iPOP INSTRUCTION 



MOV CSP)».X 



:A BRANCH TO THE NEXT LOCATION 



.MACRO .BR ADR 
-IF P2 

^ jf -AOR 

.ERROR {ILLEGAL .BR TO ADR 
.ENOC 
.ENOC 

.ENOH 

.MACRO ASSUME FIRST CONDITION SECOND 

.IF CONDITION <FIRST>-<5EC0N0» 
.IFF 

ASSUME OF < FIRST. CONDITION < SECOND > 

.E»OC 

.ENOM 



I 'I 
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GlOBAi. EOOAtEs SECTION » t -w- ^0 

1 {PRINT CHARACTER 

^ J ARGcrtNT njSf BE SO<JRCE STATEMENT TO MOVE CHARACTER TO PRINT ''HOV ARC.flO ' 

: EX: "PRINT Rl" WILL PRINT THE CHARACTER IN Rl 

* I SPECIAL CASE: PRINT tCR" WILL PRINT END OT -INE SEQUENCE 

'> I THE PRINTING IS OONt AT THE MODE OF THE LAST PRINT LINE CALl 

I IE.. PNTX. PNTB. PNTX. PNTS 

8 .MACRO PRINT ARGl 

9 .ir OIF <ARG1.>.R0 

10 .LIST 

11 .NLIST '^^^ 

15 .ENOC 
I* .LIST 

}l , , CALL CPNT 

16 .NLIST 

17 .ENOM 
18 

19 jPROCESSING MACHO FOR NEXT SET OF FORMATTED MESSAGE MACROS 

21 .MACRO PNT... RTN.ADR.ARG1,AAC2.ARG3.ARG4,ARG5,ARG6,ARG7.ARG8 

22 PNT.CT-0 

23 .IRP AA.<ARG«.ARC7,ARG6.ARG5,AftG4,ARG3.ARC2,A«Cl> 
2* .IF NB.<AA> 

^ •'-^^^ 

I* MOV AA. (SP) 

27 .NLIST 

28 PNT.CT.PNT.CT.2 
2? .ENOC 



50 .ENOM 

M .uisr 

53 



JSR Rl.RTN 
.UORD ADR 



« .NLIST :«ORDPNT.CT 

% .ENOM 
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GLOBAL EQUATES SECTION 



1 iPRINT FORMATTED MtSSAGfc MACROS 

2 s USE TMESE MACROS TO PRINT A FORMATTED MESSAGE 

5 : FIRST ARGUMENT MUST BE ADDRESS OF FIRST CHARACTER OF MESSAGE STRING 
4 s TO BE PUT INTO WORD (.WORD ARG) 

•i ; UP TO 8 SOURCE STATEMENTS MAr FOLLOW TO SPECIF f PARAMETERS TO BE 

6 I USED BY TME FORMAT 

; 

8 .MACRO PNTF AQR ARG1.ARG2.ARG3, ARG4,ARGS,ARGt>,ARG7.ARGa 

9 PNT... LPNTF AOR ARGl . ARG2. ARG3.ARG4,ARG5.ARG6. ARG7.ARGa 
10 .ENOM 

U .MACRO PNTB AOR ARG1.ARG2,ARG3.ARG4.ARG5,ARG6.ARG7.ARG8 

12 PNT... LPNTB AOR ARGl . ARG2 , ARG3 . ARG4 . ARCS . ARG6. ARG7 . ARG8 

13 .ENOM 

14 .MACRO PNTX AOR ARG1.ARG2.ARGS.ARG4.ARG5. ARG6,ARG7.ARC8 

15 PNT... LPNTX AOR ARGl.ARG2.ARG3.ARG4.ARG5.ARG6,ARG7.AftGa 

16 .ENOM 

17 .MACRO PNTS AOR ARG1.ARG2.ARG3.ARG4.ARG5.ARG6,ARG7.ARG8 

18 PNT... LPNTS AOR ARGl, ARG2.ARG3.ARG4,ARG5.ARG6.ARG7.ARG8 

19 .ENOM 

20 .MACRO PNT AOR ARG1.ARG2.ARG3.ARG4.ARG5.ARG6.ARG7.ARG8 

21 PNT... LPNT AOR ARGl.ARG2.ARGS.ARG4.ARG5.ARG6.ARG7.ARGfl 

22 .ENOM 
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CLOBAt DATA SECTION 



1 

c 






.SBTTL 


GLOBAL DATA SECTION 




1! 
4 






1 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 








J IN MORE THAN ONE TEST. 




r 
s 


002146 




Ff REE : : 


.BLKU 1 


i FIRST FREE UORO IN HEnORV 


9 


002150 




FSI2E: : 


.BLKU 1 


iSIZE OF FREE MEMORY IN UOROS 


10 


002152 






.BLKU 1 


:C0PY OF FFREE AT END OF IN2T SECTION 


11 


002154 




FMEMS: 


.BLKU 1 


I COPY OF FSIZE AT END OF INIT SECTION 


12 


002156 




CTABS: : 


.BLKU 1 


{START OF CONTROLLER TA6LE STORAGE 


15 


002160 




CTRLRS: 


.BLKU 1 


(COUNT OF UDA CONTROLLERS IN PTABLES 


14 


002162 




TSTTAB: 


.BLKU 1 


(POINTER TO FIRST CONTROLLER TABLE UNDER 


15 








.GLOBL UDAFM 




16 


002164 


OOOOOOG 


DMPROG: 


.WORD UDAFH 


(START ADDRESS OF On PRDGRAM 


17 


002166 




URUN: 


.BLKU 1 


(NUMBER OF UNITS TO RUN AT ONE TIME 


16 


002170 




URNXNG: 


.BLKU 1 


(NUMBER OF UNITS STILL RUIMINC 


19 


002172 




UCNT: 


.BLKU 1 


(COUNTER OF UNITS UNDER TEST 


20 


002174 


000000 


FILOPN: 


.UORO 0 


( FILE OPEN 


21 


002176 




UFREEZ : 


.BLKU 1 


(FREEZE ON UNIT UHEN NOT ZERO 


22 


002200 




NXMAO: 


.BLKU 1 


(SET TO ALL ONES BY NON-EXISTANT ADDRESS 


23 


002202 


000000 


FDATA : 


.UORO 0 




24 


002204 




FCTBUF: 


.BLKB 512. 


(STORAGE FOR FCT BLOCK 


25 


003204 




FCTNUh: 


.BLKU 1 iFCT 


BLOCK NUMBER 


26 


003206 




MODE: 


.BLKU 1 iMCOE UORD. 


SAME BIT OEFS AS SO. BIT 


27 
26 
29 






s CLOCK 


CONTROL 




30 


003210 


000000 


KU.CSR: 


.UORO 0 


(CSR OF CLOCK 


31 


003212 




KU.BRl.: 


.BLKU 1 


(BR LEVEL 


32 


003214 




KU.VEC: 


.BLKU I 


(VECTOR 


33 


003216 




KU.HZ: 


.BLKU 1 


(HERTZ (SO. OR 60.) 


34 

35 


003220 




KU.EL: 


.BLKU 2 


(ELAPSED TIME 


36 


003224 


016104 


PTYPE: 


.UORO PF 


(PRINT TYPE 


37 


003226 


000 000 


ERRCHR: 


.BYTE 0.0 


(FIRST BYTE LOADED UITH OUTPUT CHARACTER 


36 


00323C 


000000 


NULL: 


.UORO 0 


(USED TO PRINT A NULL CHARACTER 


59 


005222 




FNAME: 


.BLKB 10. 





/UOCDO POP II OOA D«V »MIR MACRO VO^.OO TcMCday 
GLOBAL DATA SECTION 



1 

i 










TFMD • 

1 c»^^ t 


c 








IIP 

i AC 


IJM I C A S 














4 












•i 












V 




W*>A 


n 7n 




Auric 9 » 


• 






A VP 


AU3 


MDIiTMQ- 






A AO 


A I ' 


ip<k 

ACV 






VA/ J J J J 


117 
A A ' 


AVP 


IPA 
Ac* 






J JOV 


1 3\ 
Ac J 


A V3 


1 PO 
ACV 




1 1 
» i 




1 Ol 
Aw A 


1 PS 
AC3 


107 
AV 1 








IIP 
A AC 


Ac 3 


1 1 A 
A 4* 




1 > 

i ^ 


\A/ J 9 ' A 


IIP 
A Ac 


1 PS 
Ac3 


I 1 fv 
A AO 




A* 


• ^ 


11^ 
A A^ 


mi 

AVA 


1 SI 

A 3A 






005S77 


lOl 

AVA 


IPO 

ACV 


A CC 








A A3 


lOl 
AVA 


1 PP 
ACC 




1 7 




AVv 


A V^ 


* OP 

* vc 




IS 


4 V 


A AC 


lOl 

A wA 


1 l<t 

A Aw 




14 

k ~ 


\^/-^^ A J 


057 










\A/ J* A^ 


wO 3 








PI 


A J 


w J ' 








cc 


\^ Aw 










3« 


A » 


OS 7 

wj ' 








34 




w«^w 








p« 


\A/3^c A 














nV7 








37 

c • 




V JO 








PA 




A<7 
























OX7 










OOU37 




ft7 1 
V » A 




iC^if 4f ! 












vrABPAa 


S3 












54 


005456 


OOOOOO 






A ' ^iiff* J ■ 


55 


005440 


OOOOOO 








56 


005442 


OOOOOO 








57 


003444 


OOOOOO 








56 


005446 


OOOOOO 








59 


0054SO 


OOOOOO 








4C 


005452 


OOOOOO 








41 


005454 


OOOOOO 
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SCO 0055 



.BLKe Za. lUSfC TO of t AN^^UTR ^POH OHANIO CAti 

.ASCI7M-JAN 70\ lOCFAUlT DATE 

.BLKB 5 

!wORO 0 lOATC STRING IN fORMATTER fORtlAT 

.BtKB 10. iCriRST UORO ZERO SAvS NO DATE HERE rET) 

.ASCIZMd446744075 OWlblSv iHlGMEST DISK SERlAi ffJMBER 

.ASCII\OECn iNAMf 0» MQNTh'^ 

.ASCII\NOV\ 

.ASCII\OCT\ 

.ASCIISSEPn 

.ASCIIv^UGN 

.ASCIISJULv 

.ASCII\JUN\ 

.ASCII\«AY\ 

.ASCII\APR\ 

.ASC1I\HAR\ 

. ASCII \FEB\ 

. ASCII VJAN\ 

.BtTE 51. tNUr«ER or OATS IN EACH HONTh 

.BTTE 29. 

.BYTE 51. 

.BTTE 50. 

.BYTE 51. 

•BYTE 50. 

.arlE 51. 

.BTTE 51. 

.BYTE 50. 

.BYTE 51. 

.BYTE 50. 

.BYTE 51. 

.ASCIZ\19\ 

.ASCIZ\20v 

.EVEN 

.WORD 0 

.I40RD 0 

.UOAO 0 

.uom> O 

.WORD 0 
.WORD 0 
.UORD O 
.UORO 0 



4 

S 
« 

9 

IC 
11 

1? 0054S6 
00S456 
00S456 

IS 
14 

15 

16 005500 
00S500 
00S500 

0»v rma/ 



125 



104 



105 



1S2 



101 



125 



.SBTTL GLOBAL TEXT SECTION 

I*TMt GLOBAL TEXT SECTION CONTAINS FORMAT STATE»«Nr'j. 
I NCSSACES. AND ASCII INFORMATION THAT ARC USED IN 
I MORE TMAN ONE TEST. 
I 

! NAMES OF DEVICES SUPPORTED Br PROGRAM 
* DEVTtP <U0A 50 CONTROLLER> 



I TEST DESCRIPTION 

* OeSCRIPT <CZUDEDO POP 11 tJOA DRv FMTR> 



L*lbwT»P; : 



t »0€SC! 



ASCI/ /'XA 5C C0NT»CA...f6 
,t/fcN 



,Asciz /CZ' jotDc POP :: jda 

.EVEN 



Cl8|2l lExT^Sf^ION*^ '^•CRO V05.00 1vj««day J« H«y 81 lOiJO Page 55 



1 lUNFORMATTEO ^CSSAG£S 

5 005536 105 U6 1^ OATEQt .ASCIZsENTER OATC AS OO-MMH- fTN 

4 005566 040 106 117 riLNAQ: .ASCI/N rQR DISK TO BC rOAHATrEON 

5 00S620 040 000 SERNQ: .ASCZ7v \ 

6 003622 101 122 105 UNQUES: .ASCI/\ME tOU SORE tOO WANT TO RUN THIS r^mtkintls 
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GLOBAL TEXT SfcCUON 

1 ; fORMAT STATEMENTS USED IN PRINT CALL ^ 





005676 


045 


124 


000 


ERRONE: 


.ASCI2\«T\ 


4 


00S701 


045 


116 


000 


ERRNL . 


.ASCi;\«N\ 


K 




042 






KNI in; 




6 


005727 


104 


071 


042 


RNTIMl: 


.ASCI2\D»' :"V 




005735 


104 


071 


000 


RNTiri2: 


.ASCI2\09\ 


9 


005740 


042 


040 


040 


EWmEl: 


.ASCIZV" • • • ERROR PROCESSING r«SSAG£ STRING • • 


9 


004027 


116 


042 


125 


MESSG: 


.ASCIZ\N"UNIT "06- UOA AT "016" DRIVE 'D9S\ 


10 


004075 


042 


116 


117 


NOCLOCK: 


.ASCIZV'NO LINE CLOCK AVAILABLE TOR TIMING EVENTS"N\ 


11 


004150 


042 


110 


117 


BASNO: 


.ASCIZ\"HOST PROGRAM"\ 


12 


004167 


042 


040 


040 


BASL2: 


.ASCIZV" WlOA AT "016\ 


15 


004206 


042 


040 


040 


BASL5: 


.ASCIZV DRIVE "09\ 


1« 


004225 


000 






BAS: 


.BYTE 0 iNULL TO PRINT NOTHING 


15 
16 


0O4224 


122 


066 


122 


BASLN: 


.ASC1Z\R6R6R6R6\ lUSED TO PRINT BASIC LINE Of ERROR KSSACt 


17 


004255 


llf> 


042 


125 


SERNUH: 


.ASCIZ\N''SERIAL NUMBER FOR UNIT "06" UOA AT 016' DRIVE "09^ 


18 


004522 


042 


125 


124 


UNSTOP: 


. ASCII \ -STOPPING THIS FORMAT AFTER THIS POINT wiLL MAKE IK 0ISK"Nv 


19 


004415 


042 


125 


116 




.ASCI IN "UNUSABLE. AND MILL CAUSE T»C DISK TO BE SPUN OOUN UHEN"Nk 


20 


004506 


042 


102 


122 




.ASCIZN-BROUGMT ONLINE. "^Mv 


21 


004552 


116 


042 


127 


UNSTRT: 


ASCIIVN'tlARNING: "NN 


22 


004 546 


042 


040 


040 




'.ASCIIv TMIS FORMATTER PROGRAM SHOULD NOT BE USED AS A OIAGNOSTIC'-Nv 


25 


004650 


042 


040 


040 




.ASCII\" TOOL. RUN THIS PROGRAM ONLY AS INSTRUCTED IN T»C DISK "N' 


2« 


004747 


042 


040 


040 




.ASCIZ\" DRIVE' S SERVICE MANUAt . "NN 



r 
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Global text section 



1 


005010 








XlA: 




2 


00501C 








X2A; 




5 


005010 








X3A: 




4 


005010 


042 


111 


040 


X6A: 


.ASCIZV"! DON' T LIKE THE ANSWERS YOU GAVE TU THE HARDWARE OUESTIONS'N 


5 


005107 


122 


065 


122 


XI : 


. ASCI2\R5R6"LIDA HAS HORE THAN ONE VECTOR, BR LEVEL OR BURST RATE"N 


6 


005203 


1 2c 


065 


122 


X2: 


.ASCIZ\R5R6"TU0 UNITS SELECT THE SAflE 0RIVE"N\ 




005252 


122 


065 


122 


X3: 


.ASCIZ\R5R6''H0RE THAN EIGHT DRIVES SELECTED ON THIS UDA''N\ 


8 


005535 


122 


064 


042 


X4: 


.ASCII\R4"N0T ENOUGH ROOM IN HEHORr TO TEST THE UNITS SElEC^EO'^^ 


9 


005426 


042 


120 


114 




.ASCIZS"PLEASE START PROGRAM OVER AND TEST FEUER UNITS AT A TIHE"N^ 


10 


005522 


122 


065 


122 


xe: 


.ASCIZsR5R6"TU0 UDA'S USE THE SAME VECTOR''N\ 


11 


005567 


122 


064 


042 


X9: 


.ASCIISR4''0NLT ONE DISK CAN BE SELECTED IN HU QUESTIONS IN RESTORE MODE. N 


12 


005672 


042 


120 


114 




.ASC 12 s "PLEASE START PROGRAM OVER AND SELECT ONLY ONE DISK.'NN 


IS 


005761 


122 


064 


042 


XIO: 


.ASCIZnR4"THXS PROGRAM CAN ONLY REfORMAT A DISK IN UNATTENDED MODE. "NX 


14 


006060 


122 


065 


042 


X14: 


.ASCIX\RS''UDASO CONTROLLER IS AT A REVISION LEVEL NO LONGER SUPPORTED BfW 


15 


006163 


042 


124 


110 




.ASCIIV'THIS FORMATTER PROGRAM. THIS PROGRAM REQUIRES A UDASO-A'Nn 


16 


006256 


042 


103 


117 




.ASCIIs "CONTROLLER (MODEL 6) WITH MICROCODE VERSION AT 3 OR GREATER . "W* ^ 


17 


006356 


042 


103 


117 




.ASCIZn "CONTROLLER REPORTED MODEL CODE "04" AND MICROCODE VERSION "04'-. 


16 


006461 


122 


065 


042 


X20: 


. ASCII \R5"MEM0RY ERROR TRYING TO READ UDA REGISTERS'Nx 


19 


006537 


042 


103 


110 




.ASCXI\ "CHECK UNI8US SELECTION SWITCHES ON UDA MODULE M74e5"N\ 


20 


006625 


042 


117 


122 




.ASCIIS "OR UNIBUS"N\ 


21 


006641 


042 


117 


122 




.ASCIZ\"OR "R7\ 


22 


006651 


122 


065 


042 


X21: 


.ASCXI\RS"UDA RESIDENT DIAGNOSTICS DETECTED FAILURE "IA6N 


23 


006731 


042 


122 


105 




.ASCIZV "REPLACE UDA MODULE M746"0SN\ 


24 


006766 


122 


065 


042 


X22: 


.ASCII\R5-STEP BIT DID NOT SET IN UDASA REGISTER DURING INITIALIZATION-N^ 


25 


007067 


042 


125 


124 




.ASCIZ\"STEP BIT F.xPfCTED "016M)aR7\ 


26 


007124 


122 


065 


042 


X23A: 


.ASCIIXRS'UDA DID NOT CLEAR RING STRUCTURE IN HOST MEMORY DURING INI yial:ZATION-Nx 


27 


0072S6 


104 


071 


042 




.ASCIIVD9'' WORDS WERE TO BE CtXARED STARTING AT ADDRESS '-016N\ 


26 


007324 


042 


106 


111 




.ASCIIN'FIRST SEVERAL WORDS NOT CLEARED (UP TO 6):"NS 


29 


007401 


123 


066 


042 




. ASCIZ\S6 "ADDRESS "S4 "CONTENTS "N\ 


SO 


007432 


123 


067 


117 


X2S6: 


. ASCIZ\S7016SS0i6N\ 


SI 


007446 


122 


065 


042 


X24; 


.ASCIXSRS^JDRSA REGISTER DID NOT GO TO ZERO AFTER STEP 3 WRITE OF INITIALIZATI0N"N 


32 


007561 


042 


120 


125 




.ASCXZN "PURGE/POLE DIAGNOSTICS WERE REQUESTED 'NR6R7\ 


33 


007636 


122 


065 


042 


X2S: 


.ASCIlSRSnjOA DID NOT RETURN CORRECT DATA IN UDASA REGISTER DURING INITIALIZATION- N v 


34 


007752 


042 


040 


040 




.ASCIZN" UDASA EXPECTED "016I«8R7\ 


35 


010007 


122 


065 


042 


X30: 


.ASCXZ\RS"UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE RUM«ING DM PROGRAM>fff>A 


36 


010122 


122 


065 


042 


X31: 


.ASCIZNRSDUP PROGRWt IS HUNG-N\ 


37 


010153 


122 


065 


042 


XS2: 


.ASCIZ\RS'^SSME BUFFER RECEIVED FROM QM PROGRAM WITH UMCNOWN REQUEST Nl^«ER--*«^ 


36 


010264 


122 


065 


042 


r56: 


.ASCII\RS-NO INTERRUPT RECEIVED FROM UDA FOR SO SECOM)S-N\ 


39 


010346 


042 


127 


110 




.ASCIZ\ "WHILE LOADING OM PROGRAM"N\ 


40 


010402 


122 


065 


042 


X37: 


.ASCIZnRS'-UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE LOADING DH PftOGRAr i^SA^ 


41 


010517 


122 


065 


042 


XlOO: 


.ASCIZ\RS-DUP PROGRAM ASKED UNEXPECTED QUESTION (-012-)"N\ 


«2 


010602 


122 


065 


042 


XlOl: 


.ASCIZ\R5"0UP PROGRAM REJECTED ANSWER TO DATE OR SERIAL NUMBER QUEST ION- N\ 



AMDC POP n UOA ORV TMTR MACPQ VOS.OO Tuesday 
GLOBAL lEXT SECTION 



?4 Hay Si 10:10 Pao« St> 



'>L0 005« 



1 


010705 


04 1> 


115 


105 


XMSGl : 


2 


010741 


125 


065 


117 


XMSG2 : 


5 


011006 


122 


065 


042 


XPKTl : 


4 


011102 


042 


105 


111 






011212 


125 


065 


042 






011277 


125 


066 


117 


XPKT2: 


f 


011S2< 


042 


040 


040 


XSA: 


8 


OH557 


042 


122 


105 


XFRU: 


9 
10 












11 


01141S 


045 


101 


111 


SERNX: 


12 


011505 


042 


111 


116 


OATEX: 


15 


011522 


042 


116 


101 


riuNAH 



:4 



.A5CI/\'MESSAGfc BUrrtR CONTAINS: "N\ 
.ASCIZSS5016S1016S1016S1016S1016S1016S1016NV 

.ASC;i\R5"RESP0NSt PACKET TROM UOA DOES NOT CONTAIN EXPECTED 0ATA"N 

. ASC II \ "EITHER UOA RETURNED ERROR STATUS OR PACKET WAS NOT RECEIVED CORREC^Lr'N 

.ASCI7NS5"C0rt1AN0 PACKET SENT S6"RESP0N*;£ PACKET R£CEItrED"N\ 

.ASCIZ\S6016S1016S14016S1016N\ 

.ASCIZV" UOASA CONTAINS '0l6Ns 

.ASCIZV REPLACE UOA HOOULC M7485N> 

. ASCIZ\«AINPUT ERROR. ANSUER WITH OECINAt • jr«ER L0> 0 Hl> AT 
.ASCIZV "INPUT ERROR. V 

.ASCIZv"NAME OF FILE CONTAINING BAD SECTOR INTORMATION"^ 
.EVEN 



AOEOO POP 11 UOA OAV rniH »1AC«0 V0*.,00 
GLOBAL ERROR REPORT SECTION 



'vj«»da> J4 May 8^ 10:10 Pae* '> / 



,S8TTl GLOBAL tRROR RtPORT SECTION 



4 

S 
6 

T 

9 

<» 
10 
11 
12 
15 

14 0n604 

15 011604 
011604 
011610 
011614 
011616 

16 011620 
17 

18 011622 

19 011622 
011622 
011626 
011652 
011654 

20 011656 
21 

22 Oi:640 

25 011640 
011640 
011644 
01 1650 
011652 

24 011654 
25 

26 011656 

27 011656 
011656 
011662 
011664 

28 011666 
29 

50 011670 

51 011670 
011670 
011674 
011700 
CI 1702 

52 0117C4 
55 

54 011706 

55 011706 
011706 
011712 
011714 



177777 
177777 
177777 
177777 
177777 



012746 
004157 
005107 
000C02 



012746 
004157 
005205 
000002 



012746 
004157 
005252 
000002 



004157 
005555 
000000 



012746 
004157 

005522 
000002 



004157 
005567 
000000 



005010 
016256 



005010 
016256 



005010 
016256 



016256 



005010 
016256 



I ♦ • 

I THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

I USED BY nORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORHATION. PRINTA 

J (BASIC) AND PRINT X (EXTENDED) CALLS ARE USED TO CALL PRIN' SERVICES. 

SVC INS- 
SVCTST. 
SVCSUB* 
SVCGBL* 
SVCTAG- 



I LIST INSTRUCTIONS, SMlfTED RIGHT 
J LIST TEST TAGS. SMirTEO RIGHT 
I LIST SUBTEST TAGS. SHif TED RIGHf 
I LIST GLOBAL TAGS, SHIFTED RIGHT 
» LIST OTHER TAGS, SHiriEO RIGHT 



016256 



BGNnSG ERROOl 

PNTB Xl.fXlA 



ENDMSG 

BGNnSG ERR002 

PNTB X2.*X2A 



ENOnSG 

BGM1SG ERR0C5 

PNTB X5,*J(5A 



ENOnSG 

BGmSG ERR004 

PNTB X4 



ENOMSG 

BGNHSG ERR008 

PNTB X8.«X8A 



ENOnSG 

BCNnSG ERR009 

PNTB X9 



flOV txXA. (sp: 
JSR Rl.LPNTB 
.UORO XI 
.WORD PNT.CT 



NOV •X2A. csp: 

JSR Rl.LPNTB 
.WORD X2 
.UORO PNT.CT 



HOV •XSA. (SPl 
JSR Rl.LPNTB 
.UORD X5 
.WORD PNT.C^ 



JSR Rl.LPNTB 
.WORD X4 
.WORD PNT.CT 



nov AXBA. -(SP) 
JSR Rl.LPNTB 
.UORO X8 
.fclORO PNT.CT 



JSR Rl.LPNTB 
.WORD X9 
.WORD PNT.CT 



/UOEOO POP U UOA DRV rMTR MACRO V05.00 Iij««da> May 8<: iO:10 Pag« 
GLOBAL ERROR REPORT SECTION 



36 

■ 7 


011716 






ENOnsc 






Oil 7>0 








F PRO 10 


59 


Oil 7?0 








PNT6 XIO 




Ol 1 7PO 


0041 \7 

\^^^X-J ' 


Vi OCT 








OI 1 7P4 

VX X ' 


VW f V X 










Ol 1 7?* 

V X X ■ 


www 








MO 

4 1 


Ol 1 7V1 
V X X ' 










^ * 


Ol 1 7XP 
vx X • 






BGNMSG 


ERR014 


AX 


Ol 1 7X? 
vx X ■ <9« 








PNTB X14 R3 RP 




Ol 1 7 V 
vx X ' 


0 1 0?46 










Oil 7S4 


010346 












0O4137 


016236 










006060 










Ol 1 744 


000004 








44 


Ol 1 1M4% 






ENOnSG 




4S 














011750 






BGttlSG 


ERR020 




Ol ' 750 








PNTB X20 




Oil 750 

V X X ' 


0041S7 


016256 








011754 


006461 










Oil 756 










411 


Oil 7 AO 






ENOnSG 




49 












5C 


Oil 7^ 






6GNHSG 


ERR021 




oil 7^ 

VAX* 9C 


01O2O1 






nov R2 Rl 

• ^rw "fc #"X 




Ol 1 7M 


OOOV)1 
^^^v^vx 






SUAB Rl 


55 


01 1766 

VAX* 








AND 2.R1 




Ol 1 7^ 


04P70^ 


1 77775 








Ol 1 77P 


\iAM>CW X 






Ami Rl 


55 


Oil 774 


01^701 


ooooo^ 

wvw^ 




ADD #5 Rl 


5^ 


019OO0 








PMTR X21.R2.R1 




OIPOOO 
w xc%nn/ 


0 1 0 1 41^ 

V X V X ~ w 










012002 


010P4A 

vx Vt^w 










012004 


0041S7 










012010 


0O6651 










012012 


000004 








57 


012014 










50 












59 


012016 






BGI#KG 


ERR022 


60 


012016 


04P7S7 




OPOPII^ 

VC VC X9 


SIC ASA ERR LDARW 


61 


012024 








PNTB X22.UDARS0.R2 




012024 


010246 










012026 


015746 


020216 

WC Xv 








0120S2 


004137 


016236 








012036 


006766 










012040 


000004 








6? 


012042 






ENOHSG 




63 












64 


012041 






BGf#tSG ERR025 


65 


012044 








PNTB X25A.Rl.frRCE 




012044 


013746 


002146 








012050 


010146 










012052 


004157 


016256 








012056 


007124 










012060 


000004 









'lEO 0060 



jOP Rl.LPNTB 
.WORD xio 
.WORD PNT.CT 



NOV R2.-(SP> 
MOV R5. (Sf-) 
JSR R1.LPNT8 
.WORD X14 
.WORD PNT.C^ 



JSR Rl.LPNTB 
.UORD X20 
.WORD PNT.CT 



BIC ♦♦C«2>.«1 



NOV Rl.-CSP) 
MOV R2.-(SP) 
JSR Rl.LPNTB 
.MORD X21 
.WORD PNT.CT 



MOV R2. -CSP) 
MOV UDARSD. (SP) 
JSR Rl.LPNTB 
.WORD X22 
.UORD PNT.CT 



MOV FFREE. »SP1 
MOV Ri. (SP) 
JSR Rl.LPNTB 
.WORD X23A 
.WORD PNT.CT 



t 

I ) 



/UOeOO POP II UOA WV »MTH HACf>0 VOS.OO ocsday .'4 May 8' lOilO P«o« 57 t* 
U.OeAC ERROR REPORT SECTION 



66 


01^062 


005 74 t 






TST (R2) 




012064 


005 712 




fRR23A: 


TST (R2) 


60 


012066 


0014 to 






BEQ f:RR2SB 


69 


01?0 70 








PNTB X258.R<^'.^R2 ) 




012C70 


01 1246 










012072 


010246 










012074 


004157 


016256 








012100 


007452 










012102 


000004 








70 


012104 


005504 






DEC R4 


71 


012106 


001405 






BEQ ERR25C 


72 


012110 


005722 




ERR256: 


TST (R2)« 


73 


012112 


005505 






DEC R5 


74 


012114 


001565 






BNE ERR25A 


75 


012116 






ERR25C : 


PNTB XFRU 




012116 


004157 


016236 








012122 


011357 










012124 


000000 








76 

77 


012126 






ENOnSG 




76 


012150 








ERR024 


79 


012150 








PNTB X24,R2 




012150 


010246 










012152 


004157 


016256 








012156 


007446 










012140 


000002 








80 


012142 






ENOnSG 




61 












62 


012144 








ERR025 


83 


012144 








PNTB X25.R1.R2 




012144 


010246 










012146 


010146 










012150 


004157 


016256 








0121S4 


007656 










012156 


000004 








84 


012160 






ENOnSG 




85 












86 


012162 








EfWOSO 


87 


012162 








PNTB X50.R1 




012162 


010146 








012164 


004157 


016256 








012170 


010007 










012172 


000002 








86 


012174 






ENOnSG 




89 












90 


012176 






BGM1SG 


ERR051 


91 


012176 








PNTB X51 




012176 


004157 


016236 








012202 


010122 










012204 


000000 








92 


012206 






ENonsc 




95 












94 


012210 






BGNnSG 


ERR032 


•»5 


012210 








PNTB X52 




012210 


004157 


016256 








012214 


010155 










012216 


000000 









SEO 0061 



10V (R2), (SP^ 
MOV R2. fSP) 
JSR Rl.LPNTB 
.WORD X2Se 
,WORO PNT.C 



JSR Rl.LPNTB 
.UORO XfftV 
.WORD PNT.C 



NOV R2.-(SP) 
JSR Rl.LPNTB 
.UORO X24 
.UORD PNT.CT 



MOV R2. <SP) 
HOV Rl.-(SP) 
JSR Rl.LPNTB 
.UORD X25 
.WORD PNT.CT 



nov Rl. CSP) 
JSR Rl.LPNTB 
.UGRD XSO 
.UORD PNT.CT 



JSR Rl.LPNTB 
.yORO X51 
.klORO PNT.CT 



JSR Rl.LPNTB 
.UORD XS2 
.WORD PNT.CT 



/U0£00 POP LI UDA ORV rnTR MACRO VOS.OO Tuesday ^4 May SS lOtlO Pag* 57 5 
GLOBAL. EfKH)A RCPORT SECTION 



Of, 






C\ \ PA 1 A 






Q / 












<M 












99 












100 


012226 


004737 


012316 




CALL PNTPKT 


101 


01223? 






ENOMSG 




102 












ICS 


V ACL 








FOD054 

f J~ 


104 




004737 


012316 

VAC J A V 






























107 


012242 






BGftflSG 


ERR056 


108 


012242 
012242 
012246 

012250 

» Ate. 


00*157 
010264 

oooooo 


016256 




PNTB X36 


109 












no 












111 


012254 






BG»#1SG 


ERR037 




012254 
012254 
012256 
012262 
012264 


010146 
004157 
010402 


016256 




PNTB X37.R1 


113 


O 12266 

V A sew 






ENOMSG 
















115 


012270 






BGNHSG ERR 100 


116 


012270 








PNTB X100.(R4) 




012270 


011446 








012272 


00413"' 


016236 








012276 


OlOSl 7 

WAV J & * 










012SOO 










117 


V JVC 






ENOnSG 




116 












119 


012304 






BG»«1SG 


ERRlOl 


120 


012304 
012SO4 
012310 
012312 


010602 
OOOOOO 


V Ave 




PNTB XlOl 


121 


012314 






ENOnsc 




122 












123 


012316 
012316 
012322 
012324 


004137 
011006 
OOOOOO 


0162 36 


PNTPKT 


: PNTB XPKTl 


124 


012326 


010401 






NOV R4.R1 


125 


012350 


062701 


000104 




AOO #MC.CPK.R1 


126 


012334 


010402 






MOV R4.R2 


127 


012556 


062702 


000020 




AOO #MC.MPK,R2 


126 


012542 


012703 


000014 




MOV #12.. r; 

: PNTB XPKT2.2CR1^(R1).2(«?).(R2) 


129 


012546 






PNTPKL 




012546 


011246 








012350 


016246 


000002 








012554 


011146 










012556 


016146 


000002 








012562 


004157 


016256 








012366 


011277 









JSR Bl.LPNTB 
.UORO XS6 
.UORO PNT.CT 



MOV Rl. (SP) 
JSR Rl.LPNTB 
.UORO X37 
.WORD PNT.CT 



MOV (R4). (SP'j 
JSR Rl.LPNTB 
.UORO XlOO 
.UORO PNT.CT 



JSR Rl.LPNTB 
.UORO XlOl 
.UORO PNT.CT 



JSR Rl.LPNTB 
.WORD XPKTl 
.UORO PNT.CT 



MOV (R2). (SP) 
MOV 2CR21.-(SP) 
MOV (Rl). CSP) 
MOV 2(R1).-(SP) 
JSR Rl.LPNTB 
.UORO XPKT2 



ZUOeOO POP 11 UOA ORV »MTR MACRO V05.00 lu««day .>4 Hay 63 10:10 Pag* 57 4 
aoeAL El»«0« REPORT SECTION 





012570 


000010 








150 


012572 


062701 


000004 




ADO M.Rl 


151 


012576 


062/02 


000004 




ADD «4,R2 


152 


012402 


005505 






DEC R5 


135 


012404 


001560 






BNE PNTPKL 


154 


012406 


000207 






RETURN 


155 












156 


012410 






MSGPKT: 


PNTB xnSGl 




012410 


004157 


016256 








012414 


010705 










012416 


000000 








157 


012420 


0165O4 


000016 




MGV C.RING(R5).R4 


158 


012424 


062704 


000450 




ADD •HC.BF'2.R4 


159 


012450 


012705 


000005 




MOV •5,R5 


140 


012454 






MS&PKL : 


PNTB XMSG2,(R4).2(R4).4(R4),6(R4).a 




012454 


016446 


000014 








012440 


016446 


000012 








012444 


016446 


OOOOlO 








012450 


016446 


000006 








012454 


016446 


000004 








012460 


016446 


000002 








012464 


011446 










012466 


004157 


016256 








012472 


010741 










012474 


000016 








141 


012476 


062704 


000016 




ADO •14..R4 


142 


012502 


005505 






DEC R5 


143 


012504 


001555 






BNE nSGPKi. 


144 


012506 


000207 






RETURN 



SEQ 0065 



.WORD PNT.CT 



JSR RI.lPNTB 
.WORD xnSG'i 
.WORD PNT.CT 



(R4) 

MOV 12. (R4). (SP) 
MOV 10. (R4). (SP) 
MOV «.(R4).-(SP) 
MOV 6(R4). (SP) 
MOV 4(R4). (SP) 
MOV 2(R4). (SP) 
MOV (R4). -(SP) 
JSR Rl.LPNTB 
.UO(*D XMSC2 
.WORD PNT.CT 



MS 

/UDEPO POP 11 UOA ORV mm MACRO VOS.OO Tuesday .^4 May 8^ 10:10 Paga 58 

CI obal error rcport section 



SEO 0064 



4 
S 



000001 
000001 

000001 

000001 
000001 



SVCINS" 1 

SVCTST- 1 

SVCSUB* 1 

SVCG8L* 1 

SVC TAG* I 



I LIST INSTRUCTIONS. SHirTEO RIGHT 

I LIST TEST TAGS, SHlfTEO RIGHT 

I LIST SUBTEST TAGS. SHirTED RIGHT 

) LIST GLOBAL TAGS. SHlfTED RIGHT 

i LIST OTHER TAGS. SHlfTEO RIGHT 



ZUOEOO POP II UDA ORV mTR MACRO VOS.OO Tuesday ^4 Hay 83 10:10 Pa«a 59 
GLOeAL SUBROUTINES SECTION 



SCO 0065 



1 

2 
5 
4 
5 
6 

r 012S1C 
012510 
012512 
012514 
012!>16 

S 012520 
0I2S20 



104454 
000004 
000000 
011656 

104444 



.sbttl global subroutines section 
imehort allocation error 

!tmIS routine prints a SYSTEM TATAL ERROR AND EXITS THE TEST 
THERR: ERRSr 4.,ERR004 



docln 



{ABORT 



TRAP CIERSf 

.UOftO 4 

.UOM) 0 

.WOW) ERR004 



TRAP 



OOCLN 



AJOEOO POP U UOA OHV rHTR riACP. V05.00 Tuesday ^^4 nay aS 10:10 Paga 60 
GLOBAl. SUBRUl/TINES SECTION 



4 

S 
6 

* 

9 

IC 
11 
12 
1^ 
14 
15 
16 

i: 

18 
l<» 
20 
21 

22 



012522 

012522 013746 002146 

012526 160137 002150 

012552 002766 

012534 060101 

012536 060137 002146 
012542 

012542 012601 

012544 000207 



lALDCM 

lALLOCATe A BLOCK OF ff*tt nEHOflT. RFPORT CRROR If MEflGP' C /mAU':. Tf . 

I Rl - NUHBER or WORDS TO ALLOCATE 

rFREC rinST rRC£ word in fCnORT 
. rsIZE SIZE or TREE MENORv AVAILABLE IN WORDS 

I OUTPUTS: 

i Rl - ADDRESS Or riRST WORD Or ALLOCATED MEHORt 

I rrREE - NEW riRST TREE WORD IN MEMORf 

I rSIZE SIZE or TREE MEMORY LEfT AFTER ALLOCATION 

iSTSTCn FATAL ERROR WiLl BE REPORTED ir NOT ENOUGH MEMORt AvAIlABiE 

I AM) ENTIRE PROGRAM uiLL BE STOPPED. 



alOCM: push rrREE 

sue Rl.rsIZE 
BlT rMERR 
ADO Rl.Rl 
ADD Rl. rrREE 
POP Rl 

RETURN 



J SAVE *^rREE AT ENTRf 

MOV rrREE. C 
iRED*XE SIZE or fREE MEMORt 
(REPORT ERROR If NOT ENOUGH rCMORr 
jCMANGE words to BrTES 
jCALCULATE NEW START Or FRtE ♦CMORf 
lOE* STAR* or ALLOCATED ^MQRt 

MOV CSP).,R1 



/UOLOO VOP l\ VJOA DRV f^iTR HACRO VOb.OO KiC«da> 
GLOeAc SUBROUTINES SFCUON 



>4 May 8^ 10:10 P»g« tl 



5 
4 

S 
6 

f 

8 

<> 

10 
II 
12 
15 
14 
15 
16 

1' 0l?5*2 000207 



012546 012701 0003S6 
012552 004737 012522 
012556 010165 000016 



mCOMM 



lALLOCATES MEHORr FOR HOST C0M1 AR£A AND PACKET SUFFERS WITH ONE 
iDESCRIPTOR IN EACH RING. TQ BE CALLED WHEN INITIALIZING 
lA CONTROLLER WITH SA.MSG-0 AND SA.CMO'O. 



J INPUTS: 
, R5 



jOUTPuTS: 



ADDRESS or CONTROLLER TABLE 



CONTROLLER TABLE POINTING TO HOST COMH AREA 
R4 ADDRESS OF HOST COm AREA 



hCOMMs 



MOV •MC,SIZ/2.Rl 

CALL ALOCM 

MOV RI.C.RING(R5) 

RETURN 



iGET SIZE 0^ AREA TO ALLOCATE 
lALLOCATE THE MEMORt 

»0£T ADDRESS Of mOST C0»W ARE*. 

iPlACE IN CONTROLLER TABLE 



/UOtDC POP U UOA 0«W fMTR 
Gl OBAi. SUBftOUTIHES SFCUON 



4 
6 

r 
8 



HACPO V05.00 Tu««d»> .'4 »1»v 10:10 P 



<i£0 0066 



RESET 

RESET ALL UDA MS IN THE CONTROLLER TABLES 
INPUTS: 

IPADRS CONTAINS AU IP ADDRESSES 
OUTPUTS: 

NONE 



"» 


012364 








PUSH «P5.R4» 












012304 


OlOS4t> 
















* 3^ ) 




Ol«3eo 


0i044e 














nuv , 


f CO \ 




0123f0 


fWMLAV7 
OWSOO r 


OOccUO 




^1 CI 












1 1 


Jl^'4 








St I vtc 














Ulf 3 '4 


Ol«: f 4o 


UOV5*v 












WOV 








A1 

012 '4o 














HOV 


dAiVMT / CO 4 




V leo04 


At ^YA^ 














HOV 


• I a** } 






Al ^TAA 

'4o 














NOV 


ov / CO ^ 




- *?614 


10443 ' 














TRAP 


C ft CwC ^ 




OlcAIO 
















ADO 


A CO 




O12'o2j 








BHCAK 














A1 ^^^^ 


4 AA^ 

I04422 














TRAP 




13 


012624 


012705 


000010 




nov 


•8..R5 


1 


R5 • COUNTER OF ENTRIES 






14 


012630 


012704 


0034 36 




MOV 


•IPADRS (R4 


i 


R4 > IP AOORCSS 






15 




00^/l4 




i * : 


T5T 


CR4 } 


1 


IS THERE AN ENTRY? 






lo 




00I40D 






BCQ 


21 


5 


ir NOT. DONE 






17 




005054 






CLR 


8CR4)« 


• 


INIT UDA 






IB 


012642 


005757 


/\A"k "W^/V 

002200 




T P T 

TST 


NXnAD 


1 


MAS THERe AN ERROR? 






1 o 
1^ 


012646 


OOIOIO 






BNE 


51 


1 


If SO. EXIT 






o/> 
cu 




003305 






DEC 


R5 


1 


HAKE SURE UE DO NOT EXTEND OVER AREA 




£l 


OI2«32 


001570 






BNE 


1 1 


1 


ir NOT DONE. BRANCH 






£<: 


U12t>34 






2» : 


CLRVEC 


#4 












0126D4 


0 12 700 


000004 












NOV 


•4.R0 




Til 
















TRAP 


cicvtc 


25 


012662 








POP 


<R4.R5> 












012662 


0126O4 














«0V fSP)..R4 




012664 


012605 














MOV (SP)..R5 


2« 
25 


C12666 


000207 






RETURN 












26 


012670 


005744 




5(: 


TST 


-(R4) 


1 


R4 ■> UDAIP THAT FAILED 






27 


012672 


010405 






«0V 


R4.R5 


a 


SAVE IN R5 FOR REPORT 






28 


012674 








ERROF 


20. .ERR020 












012674 


104455 














TRAP 


CtEROF 




012676 


000024 














.uono 


20 




012700 


OOOOOO 














.UORO 


0 




012702 


011750 














.yORO 


ERR020 


29 


012704 


005014 






CUR 


(R4) 


t 


DESTROY ENTRY SO NOT TQ FALL 


INTO RESET ERROR LOOP 


50 


012706 








OOCLN 














012706 


104444 














TRAP 


ClOCLN 
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a dbal subroutines section 



4 

6 

9 

8 

<» 
10 
11 
12 
15 
14 

15 012710 

16 012714 
17 

18 

:<* 

20 012720 

21 012726 

22 012752 

23 012752 

24 012736 

25 012744 

26 0127V) 

27 012752 

28 012752 

29 012756 

30 012762 

31 012764 

32 012770 
55 012774 

34 013000 

35 015002 

36 013006 
37 

38 
59 

40 013014 

41 

42 

45 

44 

45 015020 



010137 
005037 



013737 
013705 

005065 
116537 
005765 
100407 

004737 
004737 
001402 
005237 
062705 
005337 
001354 
005057 
012737 



0021»>6 
002170 



002166 
002162 

000014 
000002 
000002 



012546 

Olt.^70 

002170 
000054 

002172 

002176 
177777 



002172 



002074 



003204 



005757 OC2170 



000207 



iRUNOM 

iLOAO and run a on program in the controllers. RfTiJRN UHFN Ai 
lOM HROGRAMS HAVE TERMINATED. 

I INPUTS: 

I TSTTA8 POINTER TC f IRST CONTROLLER fABLE 

) Rl NUMBER or CONTROLLERS TO TEST 

I IMPLICIT INPUTS: 

DMPRK ■ POINTER TO START Qf OH PROGRAM IN MEMORY 

, OUTPUTS: 

s Z SET IF NO CONTROLLERS SUCCESSFL«.LY STARTED 

I ALL REGISTERS ARE USED AND PREVIOUS CONTENTS OESTROtED. 



RUNOM: 



MOV Rl.URUN 
CLR URNING 



I LOAD DM PROGRAM INTO EACH CONTROLLER 



uDOM: 



LONEXT; 



MOV URUN.UCNT 
MOV TSTTAB.R5 

CLR C.fLG(R5) 

MOVE C.UNIT(R5).L»LUN 

TST C.UNIT(R5) 

BMI LONEXT 

ASSUME CT.AVL EO BIT 15 
CALL HC0»t1 
CALL LOADOn 
BEO LONEXT 
INC URNING 
AOO K.SIZE.RS 
DEC UCNT 
BNE LOOM 
CLR UFREEZ 



(SAVE NUMBER Of UNITS TO RUN 
(CLEAR NUMBER Of 'JNITS RUNNING 



iSET COUNTER Of UNITS 

I GET riRST CONTROLLER TABLE 

i CLEAR ALL "LACS 

I SEE V UNIT TO BE TESTED 

(IF NOT. DON'T LOAD THIS UNIT 

•ALLOCATE SPACE FOR HOST COtl AREA 

tLOAO THE DM PROGRAM 

I IF ERROR. GO TO NEXT CONTROLLER 

I IF NO ERROR. COUNT UNIT RLVMING 

iMOVC TO NEXT CONTROLLER TABLE 

» CHECK IF MORE CONTROLLERS 

tLOAO NEXT 

taEAR UNIT FREEZE FLAG 



MOV •-l.FCTM#1 iINVALIOATE FCT BLOCK NUi«ER CBLOCK IN MEMQRO 

i CHECK IF ANY CONTROLLERS LOADED 

TST URNING |ANv UNITS LOADED? 

iT^C DM raOGRAMS ARE NOW IN CONTROL 

iRESPOM MUST BE CALLED TO RESPOND TO THEIR REQUESTS 

RETURN 



/UOEDO POP 11 UOA ORV rnTR MACRO VOS.OO Tu««tfay ?4 Hay 8^ 10 
CLOBAi. SUBROUTINES SECTION 



10 Pag* 64 



1 
2 
5 
4 
S 
6 

s 

9 

10 015022 

11 01S026 

12 01S030 
OlSOSC 

1! 013052 
14 01SOS6 



005757 
00140S 

104455 

005037 
000207 



002174 



0021 •'4 



iCLOSEr 

'close data riLC rOR DM PROGRAMS 
! INPUTS: 

I FILOPN ZERO IF FILE NOT OPEN 

.OUTPUTS: 

I NONE 



CLOSEF 



II: 



TST FILOPN 
B£Q II 
CLOSE 

CLR FILOPN 
RETURN 



'A/* 0070 



I SEE IF FILE CURRENTLT OPEN 
( IF SO. CLOSE IT 
lANO MARK AS 30 



TRAP 



CICLOS 



/UOCOC POP U UOA ORV rriTR ^ACRU V0^.00 I«j«sda> r4 May 8^ 10:10 Pag* 6*^ 
CLUBAL SUBROUTINES SECTION 

I jRESPOM 



4 

S 



6 


015040 


015705 


002162 


* 


015044 


015757 


002166 


S 


015052 








0150S2 


104422 




9 


01S054 


016504 


000016 


10 


015060 


052765 


000002 


11 


015066 


001502 




12 


015070 


116557 


000002 


13 


015076 


052765 


000010 


14 


015104 


001150 




15 


015106 


052765 


000004 


16 


015114 


001002 




17 


015116 


000157 


015664 


10 








19 








20 








21 


015122 


011505 




22 


013124 


016S01 


000002 


23 


015150 


001405 




24 


015152 








015152 


104455 






015154 


000056 






015156 


000000 






015140 


012162 




25 


015142 


000465 




26 








27 








26 








29 


015144 


005765 


000044 


50 


C15150 


001451 




SI 


015152 


005757 


005210 


52 


015156 


001446 




55 


015160 


025765 


005222 


54 


015166 


101005 




55 


015170 


001041 




56 


015172 


025765 


005220 


57 


015200 


105455 




58 


015202 


052765 


000040 


59 


015210 


001101 




40 


015212 


005764 


000012 


41 


015216 


100476 




42 


015220 


012700 


000100 


45 


013224 


032765 


000100 


44 


015252 


001401 




45 


015254 


OC6500 




46 


015256 


052700 


000040 


47 


015242 


050065 


000014 


46 


015246 


012700 


COOOOl 


49 


015252 


004757 


'>16570 


50 


015256 


012764 




51 


015264 


005775 


ooo-xw 


52 


015270 


000157 


015/44 



iRESPONO TO on REQUESTS. RETURN UHEN Al.t 
iHAVE TERMINATEO. 



OM PROGRAMS 



002172 



000014 

002074 
000014 

000014 



000042 

000040 
000014 

000014 



000012 



RESPOM: MOV TSTTAB.R5 
MOV URUN.iJCNT 
RESPCT: BREAK i ALLOW ORS TO SEE 

MOV C.RING(R5).R4 
BIT #CT.RN,C.FLG(R5) 
BEQ RSPNXT 

MOVB C.UNIT(R5).LILUN 
BIT •CT.MSG.C.rLG(R5) 
BNE RSPIN 

BIT •CT.CM0.C.rLG(R5) 
BNE II 
JMP RSPOUT 

I CHECK IF UDA STILL RUNNING 

II: MOV (R5).R5 

MOV 2(R5).R1 
BEQ RSPTM 
ERROf 50..ERR050 



BR RSPORP 

|C»«CK FOR TIHEOUT OF RESPONSE 

RSPTM: TST C.T0T(R5) 
BEQ RSPNTO 
TST KW.CSR 
BEQ RSPNTO 

CMP KM.EL.2.C.T0H(R5) 

BHI RSPTnO 

BNE RSPNTO 

CMP KM.EL.C.T0(R5) 

BlO RSPNTO 
RSPTMO: BIT #CT .STA.C .FLG(R5 ) 

BNE RSPTOE 

TST HC.CCT(R4) 

BMI RSPTOE 

MOV KT.TMl.RO 

BIT ♦CT.TMl.C.FLGCRS) 

BEQ II 

ASL RO 
II: BIS CCT.STA.RO 

BIS R0.C.FLG(R5) 

MOV •OP.GOS.RO 

CALL BLOCMD 

MOV •RG.0UN,MC.CCT(R4) 
TST 8(R5) 
JMP RSP0U4 



iGET CONTROLLER TABLE ADDRESS 
tSFT COUNTER OF UNITS 
TERMINAL :M>UT 

TRAP CtBH' 
iGET HOST com AREA AOORESS 
f CHECK If PROGRAM RU»#<ING 
J IF NOT. LOOK AT NEXT 
iSTORE UNIT NUMBER UNDER TEST 
I SEE IF INTERRUPT RECEIVED 
J IF SO. LOOK Af PACKET 
iSEE IF COMMAND HAS BEEN SEN^ 
iIF NOT. SEND ONE 



iGET ADDRESS OF UDAIP 

(LOOK AT UDASA REGISTER 

ilF ZERO. UDA STILL RUIMING 

:REPORT UDA HAS FATAL ERROR 

TRAP CIEROF 
.UORO 50 
.UORO O 
.WORD ERfiiOSO 

I DROP CONTROLLER FROM TESTING 



iSEE IF OOP PROGRAM TO BE TIMED 

s SEE IF A CLOCK ON SrSTEM 

jDON'T TIME IF NO CLOCK 

, COMPARE TO TIMEOUT COUNTER 



jIF TOO MUCH TI»C ELAPSED SINCE LAST INTERRUPT 
I SEE IF A GET OUST STATUS COMTMMO OUTSTAYING 
{REPORT ERROR IF SO 

iSEE IF UDA TOOK LAST COTtWO PACKET 
{REPORT ERROR IF NOT 

(SEE IF FIRST TirCOUT ALREADr HAPPENED 
I IF SO. 

I SET SECOND TIME OUT FLAG 
tSET THE PROPER TIMEOUT BIT 
I AND STATUS REQUESTED BIT 
iBUllD GET DUST STATUS COMTIAND 

iMARK COmANO TO UDA 
iTELL UDA COtttMND IS THERE 



SSm? suSboutiSes'^sectiS "'^ * 

S3 0;5?74 RVNTOs 
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'AC< 007S 



01M74 
OlSSOO 
015502 
015506 
015512 
015514 



4 

«i 
6 

8 

9 
10 
11 

12 015516 
15 015522 

14 015526 

15 015550 

16 015554 

17 015540 

18 015542 

19 015544 

20 015550 

21 015550 

22 015552 
25 015554 

24 015556 

25 015560 

26 015566 

27 OIWO 

28 015572 

29 015574 

50 015576 

51 015402 

52 015404 

35 015410 
34 015412 

36 015414 
015414 
015416 
013420 
013422 

37 013424 



005/57 
001264 
062705 
005557 
001257 
000651 



005065 
005057 
010504 
062704 

012702 
012405 
001420 
005763 

100003 
005302 
001571 
000412 
052763 
005502 
001405 
005714 
001405 
004757 
001223 
005337 
001531 
0O0207 



104455 

000057 
000000 
012176 
000754 



iSUlTCH TO NEXT CONTROLLEP 



002176 

000054 
002172 



000014 

002176 

000020 
000010 



030002 



RSPNXT: TST UFREEZ 
BNE RESPCT 
ADO dC.SI2E.R5 
DEC OCNT 
BNE RESPCT 
BR RCSPOn 



i REMOVE A CONTROLLER FROM TESTING 



irROZEN TO ONE UNIT? 
I STAT THERE If SO 



ihOvE ro NEXT TABLE 
I CHECK IF HORE CONTROLLER'^ 
iLOOK AT NEXT CONTROLLER 
iLOOK AT FIRST CONTROLl ER AGAIN 



RSPDRP; 



II: 



I CLEAR PROGRAM RUNNING 



100000 000002 2t: 



016370 
002170 



31; 



CLR C.FLG(R5) 
CLR UFREE7 
MOV R5,R4 
AOO •C.0R0.R4 
MOV •6..R2 
MOV (R4).,R5 
8EQ 3» 

TST D.UNIT(R5} 

ASSUME OT.AVL EO BIT 15 

BPL 2» 
DEC R2 
BNE II 
BR 51 

BIS •OT.AVL. O.UNIT(R5) 
DEC R2 
BEQ 51 
TST (R4) 
BEQ 51 
CALL LOAOOM 
BNE RESPCT 
DEC URNING 
BNE RSPNXT 
RETURN 



I START DM PROGRAM AGAIN 



RSPTOE: ERROF 51..ERR0S1 



BR RSPDRP 



iREDUCE RUMiING CONTROLLERS COUNT 

I IF ANT STILL RUi#<ING. LOOK AT tkm 
lELSE RETURN TO TEST SECTION 

sREPORT TIMEOUT ERROR 

TRAP CIEROF 

.WORD 51 

.UORO 0 

.UORO ERR031 
{DROP CONTROLLER rPQM TESTING 



CLOeAL SUBROUTINES SECTION 



1 

? 








J 








4 








5 


015426 


012700 


000204 


6 


0154 S2 


052765 


000020 


/ 


01544C 


001402 




S 


01S442 


012700 


000205 


9 


015446 


120064 


000050 


10 


015452 


0C114S 




11 








12 








15 








14 


015454 


052764 


000057 


15 


015462 


001004 




16 








17 








10 








19 


013464 


026564 


000052 


20 


015472 


001405 




21 


015474 








015474 


104455 






015476 


000041 






015500 


000000 






015502 


012226 




£2 


015504 


000704 




25 








24 








25 








26 


015506 


052765 


000020 


27 


015514 


001465 





I«jCBda> J4 May 8^ 10:10 Page 

sCONTROLLFR HAS RESPONDED. LOOK AT MESSAGE PACKET 
: CHECK rOR PROPER OPCODE IN END PACKPT 
RSPIN 



MOV •op.eno.op.ssd.ro 

BIT ♦CT.REQ.C.ri.G(R5) 

beq rsphur 

MOV •OP.ENO'OP.RSD.RO 
RSPMUR: CMPB R0.HC.MPK.P.0PwD(R4) 
BNE RSPERR 

iLOOK AT STATUS CODE 

BIT •ST.MSK.>C.MPK.P.STD(R4) 
BNE RSPERU 

I CHECK FOR EXPECTED REFERENCE NUR8ER 

CMP C.REr(R5),MC.MPK.P.CRr(R4) 
BEQ RSPPTU 
RSPERU: ERROF 55..ERR055 



BR RSPDRP 



,GET SEND DATA (HD PACKtT 0PC0O€ 

iLOOK If SFNO DATA 0» RECEIVE DATA 

iCHANCE TO RECEIVE DATA END PACKET OPCOOf 

I COMPARE TO OPCODE IN £N0 PACET 



iCMECK FOR STATUS CODE ST.SuC C7ER0) 



I CHECK IF CORRECT RfF NUMBER 



TRAP 
.WORD 
.UORO 
.UORO 



I DROP UNIT FROM TESTING 



CIEROf 

55 

0 

ERR055 



(CHECK IF RESPONSE FRQH SEND OR RECEIVE DATA COMHAND 



RSPPTU: BIT OCT .REO.C .FLGCRS ) 
RSPOU: BEQ RSPOUT 



i CHECK IF RESPONSE FROM QH PROGRAM 
(LOOK AT REQUEST NU»«EP IF SO 



(.LOBAL 



POP II UOA oRv rniR 
SUBROUTINES SECTION 



MACRO VOb.OO Tuesday lay 8^ 10:10 



Pag* 



66 



'>fCi 0075 



jhAINTENANCE READ END PACKET RECEIVED. LOOK AT REOJEGT FROH PROGRAM 



5 


015516 


016401 


000450 


4 


015522 


042701 


007777 




015526 


001405 






015530 


020127 


060000 


; 


015534 


101405 




s 


015556 








015556 


104455 






015540 


000040 






015542 


000000 






015544 


012210 




9 


015546 


000665 




10 








11 


015550 


016405 


000054 


12 


015554 


162703 


000002 


15 


015560 


012700 


000004 


14 


015564 


004737 


016570 


15 


013570 


012700 


000164 


16 


013574 


004737 


016732 


17 


013600 


010402 




18 


013602 


062704 


000244 


19 


013606 


042724 


170000 


20 


015612 


OOOSOl 




21 


015614 


006201 




22 


013616 


006201 




23 


013620 


006201 




24 


013622 


010100 




25 


013624 


005001 




26 


013626 


004770 


014112 


27 


0136 S2 






28 








29 


013634 


016504 


000016 


SO 


013640 


052701 


000001 


51 


013644 


001401 




52 


01364' 


005201 




53 


015650 


010164 


000120 


34 


013654 


100003 




SS 


0136S6 


042765 


00002C 


56 








57 








S8 








59 


013664 


042765 


000350 


40 


013672 


032765 


000020 


41 


013700 


001014 




42 








45 


013702 


012700 


000005 


44 


013706 


004737 


016570 


45 


013712 


012700 


000430 


46 


013716 


004737 


016732 


47 


013722 


052765 


000020 


48 


013730 


000405 




49 








50 


01S7S2 


042765 


000020 


51 


013740 






52 


013740 


004757 


016654 


53 


015744 


016500 


000044 



000014 



000014 
000014 



RSPPT2: MOV mC .BF2CR4 ) .Rl 

I.IC •tC<0U.TYP>,Rl 
BEQ II 

CMP Rl.^OU.SPC 
BLOS RSPPT5 
II: ERROf 52.,ERH052 



BR RSPDRP 

RSPPT5: MOV MC .MPK.P.BCNT(R4 ) ,R5 
SUB •2.R5 
MOV •OP.SSO.RO 
CALL BlDCMO 
MOV tHCBFLRO 
CALL CURBUF 
MOV R4.R2 

ADO 4HC.BSZ.R4 i 
BIC «0<J.TYP.(R4). I 
SUAB Rl 
ASR Rl 
ASR Rl 
ASR Rl 
nOV Rl.RO 
CLR Rl 

CALL 8RSP0SP-2(R0) 
BNE RSPORP 

nOV C.RINC(RS).R4 
BIT n.Rl 
BEO It 
INC Rl 

II: MOV R1.HC.CPK*P.BCNT(R4) 

BPL RSPOUT 

BIC KT.RE0.C.rLG(R5) 
iSEM) COrtWND BACK TO UDA 



iCET REQUEST NUMBER 

J CHECK TYPE 

iir ZERO. ERROR 

J CHECK If IN EXPECTED 

(BAD REQLCST NUMBER 



RANUE 



TRAP CIEROT 
.WORD 32 
.WORD C 
.UORO ERR052 

I DROP UNIT FROM TESTING 

(GET BYTE COUNT OF CHARACTERS RECEIVED IN R^ 

((FIRST TUG CHARACTERS Al« TYPE WORD) 

i BUILD A SEND DATA COmAND PACKET 

i FOR ANSWER TO DM PROGRAM 

I POINT TO BUFFER IN PACKET 

) AND CLEAR BUFFER 

iR2 POINTS TO SEND BUFFER 
R4 POINTS TO CHARACTERS IN RECEIVE BUFFER 
CLEAR TYPE FIELD IN BUFFER 

jGET TYPE RIGHT JUSTIFIED 

! TIMES TWO 



iCOPY MESSAGE TYPE TO RO 

(Rl CONTAINS ZERO SEND BYTE COUNT 

I CALL REQUESTED ROUTHC 

: ROUTINE RETURNS Z CLEAR tq DROP UNIT FROM TESTING 
i Z SET IF UNIT TO CONTINUE RUMiINC 
(GET RING AOORESS 

(LOOK AT CHARACTER COUNT TO SEND TO DUP PROGRAM 
s IF AN 000 COUNT 
i INCREASE BY ONE 

:PUT CHARACTER COUNT IN COmAlO PACKET 
ilF NEGATIVE BYTE COUNT RETURNED 
s DON' T SEND ANY DATA TO UDA 



RSPOUT: 



BIC «CT.nSG*CT.STA*CT.TMl*CT.TM2.C.FLG(R5) tCLEAR fCSSAGE RECEIVED FlAG 

BIT KT.RE0,C.FLG(R5) iCMECK WHICH COmAND TO SEW 

BUS RSPOue sBRANCH IF RESPONSE TO REQUEST 



000014 



NOV fOP.RSD.RO 

CALL BLODO 

MOV 4HC.BF2.ro 

CALL aRBUF 

BIS KT.REQ.C.FLGCRS) 

BR RSP0U5 



000014 RSP0U2! BIC CCT .REQ.C.FLG(R5 > 
RSP0U3: 

CALL SNDCMO 
RSP0U4: MOV C.T0T(R5).R0 



(BUILD RECEIVE DATA COMMAND 

t POINT TO MESSAGE BUFFER 
i AND CLEAR IT 
I SET REQUEST BIT 



iCLEAR REQUEST BIT 

I SEND COTMANO TO UDA 
I SET TIMEOUT 



ZKXX.DC POP II UOA DRV THFR MAC»0 VOS.OO r^9da» ^4 May 85 10:10 Pbq9 fcf) I 
GLOBAL SOBKCUTINES SECTION 



C. A 


015750 


0 10^0 I 








015752 


062701 


OOOO40 




t — 


015 f56 


004 757 


01 '166 




5 f 


015 762 


AAA 1 V f 

0001S7 


0152 




36 


A 1 ■ TAX. 

015 766 




AAA^AI 

000201 


OOOU30 




015 If* 


AA1 

OU12S 7 






OU 


1 H 7 7 


152 'O* 


MV\A1 A 




bl 


014004 


AA 1 ^A V 

OOloOS 






be 










^ ■ 




A V ^ 7#.C 

052 7o3 






X. ^ 
o4 


A t ^ A^^ 


AA 1 ^ t S 








A1 AA?A 




A/W\AA 




oo 


Al AAV^ 








o 


Al AAV^ 

01*054 


















69 


014044 


042765 


000200 


000014 


70 


0140S2 


0S2765 


000100 


000014 


71 


014060 


001406 






72 


014062 


016465 


000040 


000046 


75 


014070 


016465 


000042 


000050 


74 


014076 


012764 


140000 


000006 


75 


014104 


0001S7 


013274 




76 


014110 


00015^ 


015414 





2t: 
It: 



51: 
4t ; 



iPiJT TIMf IN CONTRaifP TABU 



MOV R5.R1 
ADD •C.TO.Rl 

CALL SET TO 

JMP RSPNXT iNOU WAIT TOR END PACKET 

CMPB #0P.END.0P.GDS.K.MPK.P.0PCD(»4) ,SEE IF GET DtJ'>T STATUS 0*>COOt 

BNE RSPERU 

iir DUST NO LONGER RUTMINO 
I REPORT ERROR 
iClEAR CONTROL BITS 
,ir AT SECOND TIHEOUT 



BITS •0P.ACT,MC.MPK.P.0f^lG(R4) 
BEQ RSPTOE 

BIC •CT.STA.CT.MS0.C.rLG(R5) 
BIT •CT.TM2,C.»-"LG(R5) 
BEQ II 

CMP MC.MPK.P.0PI(R4),C.PRI(R5) 
BNE 21 

CMP HC,MPK.P.0PI»2(R4).C.PfiI»2(R5) 



;COMPARE PROGRESS INOICATOR 

J COMPARE PROGRESS INDICATOR 
{REPORT ERROR 1^ NOT CHANGED 
, CLEAR TIHEOUT 2 FLAG 
lir AT FIRST TIMECJT 



BEQ 4t 

BIC •CT.TM2.C.FLG(R5) 
BIT •CT.TMl,C.rLC(R5) 
BEQ 51 

MOV MC.MPK.P.0PI(R4),C.PRICR5) iGET CCPT OF PROGRESS INDICATOR 

MOV MC.MPK.P.DPI«2CR4),C.P«I'2(R5) |G£T COP» OF PROGRESS INDICATOR 

MOV «RG.0UN.RG.FLG.HC.HCT(R4) iGlVE MESSAGE BOTFER BACK TO UDA 

JMP RSPNXT 

JMP PSPTOE 



/UDEDO POP 11 UOA ORv »MfR MACRO VOS.OO Tuesday c>4 May 8f 10:10 Pag* t't 
GLOBAL SUBftOUTINES SECTION 

1 jRESPQNSE REQUEST DISPATCH TABLE 

2 

3 014114 014150 RSPDSP: .UQRU QUEST 

4 014116 01420? .WORD DQUEST 

5 014120 014354 .WORD INTO 

6 014122 014502 .WORD TERM 

r 014124 014512 .WORD ERRTRM 

S 014126 014522 .WORD SPECL 

<» 000006 0SPSI2-'. RSPOSP'/<? 



iQUEStlQN 

» QUEST ION UITM OLf AU T ANSWER* 

I INFORMATION MESSAGf » OR OPFRATQP 

{NORMAL TERMINATION 

jTATAL ERROR TERMINATION 

I SPECIAL 

iLEGAL NLMBERS ARf LOWEfc TmAN TmI'. 



/UDEOO POP 11 UOA ORV » MTR HACRO VOS.OO 
GLOBAL 50BRLX;riNES SECTION 



4 
5 
6 
/ 
8 
9 
10 
11 
12 
IS 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
SO 
SI 
S2 
SS 
34 
35 
36 
37 
S8 



u«*day 24 May 85 10:10 Pao« 70 



NORMAL OUP RECCIVE DATA BUFFER DESCRIPTION 



BYTE OFFSET FROM 
START OF BUFFER 
0 

2 

4 

6 

8 
10 
12 
14 
16 
18 
20 
22 



TYPE ! 



MESSAGE NUMBER 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 
DATA BYTES 



SEO 0078 



USED TO SELECT ROUTINE 
R4 COflTAINS THIS AOORESS 



80 



DATA BrlES 



ZUDEDO POP 11 UDA ORv > MTR MACRO V05.00 
GLOBAL SUBftCUTINES SECTION 



c 
5 
4 
5 
6 

r 

9 

<9 
10 
11 
12 
IS 
14 
15 
It 
1" 
10 
19 
20 
21 
22 
25 
24 
25 
26 
27 
2S 
2S 
SO 
51 
S2 
53 
54 
55 
5fc 
57 
S8 



u«««ay 24 Hay S5 lOtlO Paot ?1 

NORMAL OOP SEND DATA BUFFER DESCRIPTION GIVEN IN RESPONSE TO A«OvE PACKET 



'jEO 0079 



BrTE OFFStT FROH 
START OF BUFFER 
0 

2 

4 

6 
8 

10 
12 
14 
16 
18 
20 
22 



DATA BtTES 
DATA BTTES 
DATA BYTES 
DATA BYTES 
OATABVTES 
ORTABTTES 
DATA BYTES 
ORTABTTES 
ORTABrTES 
OATABVTES 
OATABvTES 
ORTABvTES 



R2 CONTAINS ThI<. MOORCSS 



80 



DATA BYTES 



AJOCDO POP 11 UOA 0«V fMTR MACRO VO' .OO 



INPUT: 



OUTPUT; 



« 

4 

S 
6 

* 

s 

9 
10 
11 
12 
IS 
1* 
15 

16 014150 004737 014654 QUEST: 

17 014154 
16 014140 

19 014142 

20 014144 

21 014150 

22 014152 
014152 
014154 
014156 
014160 

25 014162 
24 014164 
25 

26 01416(» 012700 005506 QUCO 

27 014172 out 7 
26 CI4172 005201 QUEL 
29 014174 

50 014176 

51 CI4200 



'.j««dav Hay 6^ 10:10 Ps«« ^ 
ANSWER QUESTION ^OR OUP PROGRAM 



R5 ADDRESS OF CONTROLLER TASLf 

R4 POINTER TO DATA IN RECEIVE RUTfER 

R5 CMARACTfcR COUNT IN RECEIVE tfUTfER 

R2 POINTER TO SEND BUTFER ( BUTf ER IS CLEARED) 

Rl ZERO 



Rl COUNT OF CHARACTERS IN SEND BUFrER 
; SET ro CONTINUE RU^MINC OOP PROCRAH 
2 CLEAR TO STOP THE D*JP PROGRAH 



004 737 014654 
062700 000004 
014405 
001411 

020527 000007 
001410 

104455 
000144 

000000 
012270 
000244 
000207 

012700 005506 

005201 
112022 
001575 
000207 



CALL GTDRVT 
AOO •O.SERN.RO 
MOV -(R4).R5 
BEQ QUEO 
CMP RS.»7 
BEO QUE 7 



I GET POINTER TO ORIVE TABLE 
iBUHP POINTER TO SCKIAL NUr«£R 
iGET QUESTION NUMBER 
iBRANCM IF QUESTION NUMBER O 
I IF NOT. SEE ir QUESTION NU»«ER 7 



ERROF 100..ERR100 



I ANT OTHER NUMBER IS m ERROR 



CLZ 

RETURN 



I CLEAR Z TO STOP OUP PROGRAM 



TRAP CtEROF 

.WORD IOC 

.UORD 0 

.MORO ERRIOC 



MOV •OATEO.RO iPOINT TO DATE STRING 
INC Rl i COUNT T»€ CHARACTERS 

MOVB (R0)..(R2). I AND PUT TMEM IN OUTPuT BUFFER 

BNE QUEL I UNTIL A NUl CHARACTER FOU^ 

RETURN {RETURN WITH / SE^ 



/UQtOO POP II UOA ORV »MTR HACnO VO''A>0 ) MSday »*4 May 10:10 P»0« 

GtOBAL SUBRcVtlNEs SFCTIOK 



\ 
4 

«i 
t> 

9 
IC 
II 
II 
IS 
14 
15 

16 014202 

17 014206 

18 014210 

19 014214 

20 014216 

21 014220 

22 014224 

23 014226 

24 014230 

25 014232 

26 014234 

27 014236 

28 014240 
29 

SO 
31 
32 

33 014242 
014242 

34 014244 

35 014246 

36 014250 

37 014250 

38 014254 

39 014260 
014260 

40 014262 

41 014264 

42 014266 

43 014270 

44 014272 
014272 

45 014274 

46 0U500 
4 7 014502 

48 014304 

49 014306 
014306 

50 014310 

51 014312 
52 

55 014314 



HtSSAGt TTPt ? 

ANSWER QUESTION f OR OUP PROGRAM WITH OLFAu T ANSWER 



INPUT: 



OUTPUT 1 



R5 ADDRESS OT CONTROLLER TA8LF 

R4 POINTER TO DATA IN RECEIVE BUTfER 

RS CHARACTER COUNT IN RECEIVE BurrpR 

R2 - POINTER TO SEND BLTrER (BUFFER IS CLtfmO) 

Rl ZERO 



Rl COUNT or CHARACTERS IN SEND BUTFER 
Z SET TO CONTINUE PUIMINC OUP PROCAAM 
2 CLEAR TO STOP THE OUP PROGRAM 



004737 014654 
014403 

020327 000006 

101035 

006303 

000173 014224 

014310 

014242 

014310 

014310 

014314 

014334 

014344 

000006 



010546 
005004 
011003 

012700 000012 
004737 016332 

010546 
005201 
005703 
001372 
010100 

012605 

062705 000060 
110522 
005300 
001372 

012605 
000264 
000207 

C327S7 000003 003^06 



DQUEST: CALL CTORVT 
MOV -(R4).R3 
CMP RS.tOQUESZ 
BHI OOUEX 
ASL RS 

JMP aOQUEJPCRS) 
OQUEJP: .UORO OOUEX 
.WORD OQUNIT 
.UORO OOUEX 
.UORO OOUEX 
.UORO OQRFMT 
.UORO OORSTR 
.UORO DQCONT 



iGET ORIVE TABLE ADDRESS INTO RO 
iGET QUESTION NUMBER 



0 (NOT USED) 

1 ENTER UNIT NlMR TO FORMAT 

2 (NOT USED) 

3 (NOT USED) 

4 USE EXISTING BAD SECTOR Iftf-ORMATION 

5 DOUN-LINE LOAD BAD SECTOR BLOCK IfTORMATION 

6 CONTINUE ir BAD BLOCK I»^0 INACCESSIBLE 



OOUESZx < . -0QUEJP>/2> - 1 



{ENTER UNIT NUMBER TO FORMAT 
OQUNIT: PUSH R5 



CLR R4 

MOV (R0).R3 iGET DRIVE NUMBER 

ASSUME D.ORV EQ 0 
MOV •10..R0 iRAOiX 10. 

CALL DIVIDE 
PUSH R5 



MOV R5. CSP) 



OOUNLl: 



D0UNL2: 



INC Rl 

TST R3 
BNE 0OI.ML1 
MOV Rl.RO 
POP R5 

ADD •'0.R5 

MOVB R5.(R2). 
DEC RO 
BNE DQUNL2 
POP R5 



SE2 

RETURN 



MOV R5. (SP) 



MOV (SP)..R5 



MOV {SP)».R5 



DQUEX: 

OQRFMT: BIT OSO.FMT.MOOE 



ZUOEOO POP-11 UOA ORV THTR MACRO VO^. 00 Tuesday 24.hay<!5 lOilO Page 75<1 
GLOBAL SUBROOTIKCS SECTION . - 

54 "014322 001410^ .BEQDQNO' "' 

55 014524 112712 000151 ^ - DQtES: MOVD »'Y.(R2) 
5o 014550 005201 . " . " ■ INC Rl 

■ 57 014532 000766 - BR OOJEX 

.58 , ' ' ' 

59 014554 052757 000010 003206 ' OQRSTR: BIT «S0. SIR. MODE - , ' 

> 60 014542 001370 ^ " BNE OQYES - 

.61 014544 ' ' , " , DQCONT: - , , " ' 

62 014544 112712 000116 ^. ' OQNO: MOVO «* N. (R2) ^ 

' 65 014550 005201 . ■ INC Rl / : ^ 

64 014552 000756' ' ' - BR DQUEXv, ,< . 



I 



■r 



SCO ooe? 

J ) 



I 




/UOCDO PDP il UOA 0(t\ fMTH MAC»0 VOS.OO Iu*»d«w .^4 May 8< 10:10 PaQ« /A 
GLOBAi. StJBROUTINES SECTION 



S£Q 009S 



4 

«1 
6 

9 

•» 

10 
11 
12 
15 
14 

15 014354 

16 014360 

17 01436^ 

18 014366 

19 014370 

20 014374 

21 014376 

22 01^402 

23 014404 

24 014410 

25 014414 

26 014416 

27 014422 
26 014426 
29 014432 
SO 014454 
31 

32 014436 
014436 
014440 
014442 
014444 

33 014446 

34 014450 
35 

36 014452 

37 014456 
36 014460 

39 014464 

40 014470 
014470 
014474 
014476 

41 014500 



016400 
001434 
020027 
001423 
020027 
002005 
005737 
001007 
005237 
004737 
010002 
004737 
0O4737 
012701 
000264 
000207 



104455 
000145 
000000 
012304 
000244 
000207 

004737 
010002 
004737 
004757 

004137 
004522 
000000 
000752 



177776 

000100 

000200 

002176 

002176 
014654 

014700 
014620 
100000 



014654 

014700 
014620 

016264 



J MESSAGE TrPE 5 

i PRINT INTORMATION f RQH DUP PROCRAH 



J INPUT 
t 
t 
i 
i 

*j OUTPUT 1 



I»*^0: 



IVOM: 



INF OP: 
IWOX: 



i»rae: 



R5 POINTER TO CONTROLLER TABLE 

R4 POINTER TO DATA IN RECEIVE BUrrER 

RS CHARACTER COUNT IN RECEIVE BUFfER 

R2 - POINTER TO SEND BUFfER (BUFFER IS CLEARED) 

Rl ZERO 

Rl BIT 15 SET TO PREVENT SENDING DATA TO DUP PROGRAM 
Z SET »0 CONTINUE RULING DUP PROGRAM 



MOV -2(R4).R0 
BEQ INFOB 
CMP R0.«100 
BEQ It^^OE. 
CMP R0.#200 
BGE I»r0H 
TST UFRCEZ 
BNE INFOP 
INC UFRECZ 
CALL GTDRVT 
MOV R0.R2 
CALL HEADER 
CAIL MCSG 
MOV •eZTlS.Rl 
SEZ 

RETURN 



I GET MESSAGE NUMBER 

I IF ZERO. PRINT BEGUN MESSAGE 

I IF OCTAL 100 

i PRINT ERROR MESSAGE 

t SEE IF 200 OR GREATER 

I IF SO. PRINT WITHOUT FREEZING 



I PRINT TmE message 

iRETURN A NEGATIVE BYTE COUNT 



jRCruRN WITH Z SET 



IirOE: ERROF 101..ERR101 



CLZ 

RETURN 



(ANSWER WAS REJECTED Bv DUP PfKXiRAM 

TRAP C*ER0^ 

.WORD 101 

.WORD 0 

.WORD ERRlOl 

(RETURN WITH Z CLEAR TQ STOP OUP PROGRAM 



CALL CTORVT 
MOV R0,R2 
CALL HEADER 
CALL »«SC 
PNT WNSTOP 



BR INFOK 



(PRINT FORMAT BEGUN MESSAGE 



imiNT WARNING NOT TO STOP NOW 



JSR Rl.LPNT 
.WORD kMSTOP 
.WORO PHf .C 



AOeOC POP 11 UOA ORV THTR MACRO VOS.OO l<j«sdAy 
GLOBAL SUBRLX^TINES SECTION 



•4 ■'•<»y 8< 10:10 P»g« /' 



00*4 



I 

4 

S 
b 

* 

9 

9 
10 
11 
12 
15 

14 014502 004737 

15 014506 000244 

16 014510 000207 



J MESSAGE, TYPfc .. 
TERMINATION MtS AGE 
INPUT 



014354 



OL'TPUT I 
TERM: 



R5 POINTtP TO CONTROLLER TABLE 

R4 POINTER TO DATA IN RECEIVE BUFfER 

R3 CHARACTER COUNT IN RECEIVE Borr ER 

R2 - POINTER T-) SEND BUFFER (BUFFER IS CLEARED) 

Rl • ZERO 



2 CLEAR TO TERMINATE OOP PROGRAM 

iPfiTNT THE 'tSSAGE 

|RET*JRN / CI EAR TO TEWIIIiATE OUP PfWGRAn 



CALL INFO 
CLZ 

RETURN 



7UOtOO POP 11 UO* D*»w TMIR MACBO vo^.OO Tvj«stf«y :'4 M»y <H 10:10 Pno* V. 
GLOBAL SUBROUTINES SECTION 



"AQ 0O9S 



4 

6 

r 
s 

9 
10 
11 
12 
13 
14 
15 
16 



MESSAGE TrPE 5 

ERROR TERfllNATION MESSAGE 



It#>UT, 



ftS - POINTER TO CONTROLLER TABLE 

R4 POINTER TO DATA IN RECEIVE Btr^tR 

RS - CHARACTER COUNT IN RECEIVE BuFf ER 

R^ POINTER TO SEND BUTFER (BUFFER IS CLEARED) 

Rl 7ER0 



014512 0047S7 014S54 
014Slf 000244 
014520 00020'' 



OUTPUT ; 

Z CLEAR TO TERMINATE DUP PROGRAM 

fRRTRM: CALL INTO 
CL7 
RETURN 



{RETURN / CI EAR TO TERniMATE OUP PROGRAn 



/UOEOO POP 11 UOA ORV rmtt HACRO VOS.OO Tu««tfsy J4 nay 8^ lOilO Pa«« 7/ 
GLOSAL SUBROUTINES SECTION 



1 

^ 
4 
S 
b 

; 

8 

9 
10 
11 
12 
IS 

14 014522 

15 014526 

16 0145SO 

17 

16 014552 

19 014552 
014552 

20 014554 
014554 
014540 

21 014542 

22 014550 

23 0145S4 

24 014560 
014560 
014562 

25 014564 
014564 

26 014566 

27 014570 

28 014572 

29 014576 
30 

31 014600 
52 014602 

33 014610 

34 014614 

35 014616 



023714 
001425 
002407 



104455 

012700 
104454 

012737 
012705 
012701 

104426 

110021 

105005 
00550? 
001375 
005257 
000751 

005212 
012762 
012701 
000264 
000207 



MESSAGE TT,>E 6 

SPECIAL TtPP • READ rCT BLOCK TROM riLfc 
IM»UT: 

R5 POINTER TO CONTROLLER TABLE 
R4 POINTER TO DATA IN RECEIVE BurrER 
R5 • CHARACTER COUNT IN RECEIVE BCTf ER 
R2 - POINTER TO SEND BUTFER (BUFFER IS CLEARED) 
Rl - 7ER0 



OUTPUT ; 



005204 



SPECL: 



SPECLC; 



005252 

177777 
001000 
002204 



005204 



SPECLR: 
SPECLL : 



005204 



002204 
000006 



000002 



SPECLE: 
SPECL X: 



Z SET TO SEND DATA TO PROGRAM 

CHP rCTNUri.(R4} I SEE IF DESIRED BLOCK IS IN NEHORr 
BEQ SPECL X I IF SO. SEND TO OOP PROGAAn 

6LT SPECLR i IF LOV€R NU»«EREO BLOCK IN NEHORr. 

i GO READ NEXT BLOCK 

Close iOtherwise. start reading froh begi^minc again 
open •fname 



MOV •-l.FCTNUH 
MOV •512. ,R5 
MOV •FCTBUF.Rl 
GETBrTE (Rl). 



TRAP 

MOV 
TRAP 



ciaos 

•FNArC.RO 
CtCPEN 



BNCOMPLETE SPECLE 



iGET BtTE count IN A BLOCK 
iPOINT TO STORAGE AREA 
(READ THE FILE 

TRAP CIGETB 
MOvB RO.(Rl)' 

iprint error if no more b^tes in FIlE 

BCC SPCaE 

DEC R5 I COUNT THE BYTES 
BNE SPECLL 

INC FCTNUH I KEEP COUNT OF BLOCK IN MEMORi 

BR SPECL 

INC CR2) I TELL OUP PROGRAM DATA NOT AVAILABLE 

MOV •FCTBUF.2(R2) jPUT AOORESS OF DATA IN OUTPUT BUFFER 

MOV 46. Rl :SEND 5 UOROS TO DuP PROGPAn 

SEZ 

RETURN iRETURN WITH Z SET TO SEW) DATA TO OUP PR0C4)An 



ZUDEDO POP 11 UOA DftV CnTft HACMO VOS. 
GLOBAL SUef<t>UTINES SECUON 



4 

S 

t» 

H 

10 
11 
12 

13 014620 

14 014620 

15 014622 

16 014624 

17 0146S0 
16 014652 

014632 

19 014636 

20 014640 

21 014642 
014642 
014646 

22 014652 



112400 
001405 

020027 000012 
001402 



004737 
005303 
003567 



016054 



112700 000015 
004757 016054 

000207 



00 luasday :?4 nay BY 10:10 Pag« rn 

PRINT A ME:>SAGe IN THF RECEIVE BOftN ^ POH THt 0*JP PfiOGRAH 
INPUT; 



OUTPUT: 



MESG: 
II: 



2t: 



R4 - POINTER TO DATA IN RECEIVE BUFrER 
flS CHARACTER COUNT JN RECEIVE BirrER 

R4 POINTER TO CHARACTER ATTER ^«SSAGE IN RECEIVE IMfER 
R3 /EflO 

Rl BIT 15 SET TO PREVENT SENDING DATA TC OUP PROGAAH 

RO CONTENTS DESTROYED 

Z SET TO CONTINUE RUNNING OUP PROGRAM 



nOvB (R4)>.R0 
BEQ 21 
CMP R0.#12 
BEQ 21 
PRINT RO 

DEC R3 
8GT II 
PRINT KR 



RETURN 



J PAINT CHMACTERS OUP PROGRAM 

I OISCAROXNC Lf AND NULL ChMACTERS 



(COUNT THE CHARACrfRS 



CALL CPNT 



MOVB KR.RO 

CAIL CPNT 



/LOEOC POP U UOA ORV rnTR MACRO tfOS.OO Tutaday Hay 8^ 10:10 Pa«« 
ClOBAL SUBROUTINES SECTION 



rt 



SCO OOM 



t 
4 

S 
b 

8 
9 
10 

11 014654 
0146M 
\2 014656 
IS 014662 

14 014664 

15 014672 

16 014672 
I" 014674 

014674 
la 014676 



010546 
062705 
012500 
016057 

10077S 

012605 
000207 



000020 
000002 



002074 



iGTORVT 

IcET DRIVE TABLE ADDRESS f ROn CONTRQl LEC TABlE 

IWUTS: 



I B5 
I OUTPUTS s 
I RO 

i 



CONTROLLER TABLE ADDRESS 

ADDRESS or FIRST DRIVE TABLk AVAILABLE FOR TESTING 
(WITH DT.AVl. BIT CLEAR) 



CTDRVT: PUSH R5 

ADO •C.0RO.R5 
CTDRVL: HOV (R5)..R0 

nOV D.UNIT(RO),LtL^ 

ASSUME DT.AVL EQ BIT 15 
BHI CTDRVL 
POP R5 

RETURN 



MOV R5. CiP. 



MOV (SP>..R5 



/UOCOO P0*> il UOA 0«V »'iTH MACPG vyS.OO ;u«s<}«> 
GLOBAL SUBRC^JTINES SCCUON 



'4 May %% 10:10 Pag* 60 



70 *i » 



1 

2 
5 

4 
S 

« 

9 

9 
10 
11 

12 

13 014700 

14 014706 

15 014710 
014710 
014712 
014714 
014 720 
014 724 
014726 

16 014730 
I 7 0147SO 

18 014730 

19 014752 

20 014736 

21 014740 
014 740 
014744 

22 014750 
25 014754 

014754 
014760 
24 014764 



022737 000001 002012 
0O14U 

011246 
011546 

016246 000002 
004157 01622fe 
004027 
000006 



000407 
005737 
001406 

112700 
004757 
004737 

112700 
004737 

000207 



005210 



000015 
016054 
020242 

000015 
016054 



:HEAOfeR 

iPNINT A HCADER IN FRONT OF EACH MESSAGE TROn 3(JP PROGRAM. 

I A UOA ADDRESS IS PRINTED If MORE THAN ONE UDA IS IN HARDWARE P TABLE. 

:A RUNTIME IS PRINTED If A CLOCK IS BEING USED TO TIME PROGRAM f yFC'JTION. 



t INPUT ; 
I OUTPUT 

i 

HEADER: 



R5 - POINTER TO CON'^ROtLER TABLt 

RO POINTER TO ORIVt TABlE 
PRINTED MESSAGE 

CMP •l.HUNIT 
BED It 

PNTf MESSG.0.UNITCR2).(R5).CR2) 



11: 



2t: 
31: 



ASSUME C.UADR £Q 0 
ASSUME O.ORV FQ 0 

BR 21 
TST KU.CSR 
BED 31 
PRINT •CR 



CALL RNTIME 
PRINT tfCR 



RETURN 



I IF MORE THAN ONE 'JNH BEING TESTFD 

» PR INT 'JOA ADDRESS 

MOV fR2). fSP: 
MOv fR5).-CSP> 
MOV O.UNIT(R2), (SP) 
JSR Rl.LPNTF 
.WORD MESSG 
.UOPO PNT.CT 



sIF NO CLOCK BEING USED 
sBTPASS RUNTIME MESSAGE 

M0V8 «CR.RO 
CALL CPNT 
;PRINT RUNTIME If A ClX^ IN USE 

MOVB ACR.RO 
CALL CPNT 



/UD£0O POP 11 UOA OftV rMTR nACPO V05.00 Tuesday 24 May SS 10:10 P 
GLOeAL SOBROUTINES SECTION 



61 



1 

2 

5 

4 

5 

6 

/ 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
52 
33 

34 014766 

35 014770 

36 014772 

57 014776 

58 015000 

39 015002 

40 015004 

41 015006 
015006 
015012 
015014 

42 015016 

43 015020 

44 015024 

45 015026 

46 015032 
4 7 015034 



U22G1 
001421 

012700 015266 

120110 

001407 

105720 

001374 

004137 016226 
003740 
000000 
000406 

162700 015266 
006500 

004770 015300 

000755 

000207 



OSTRNG 



FORMAT or THE ASCI2 STRING IS AS FQlLOWS: 

CHARACTERS ENCLOSED IN QUOTES ARE TO BE PRINTED AS TNEV ARE. 



OTHERUISE CODE 
NUMBER: 



IS A SINGLE LETTER FOLLOWED Br AN OPTIONAL DECIMAL 



ON 



ON - 



SN 
AK 
RN 



PRINT OCTAL NUEittER. N REPRESENTS SIZE OF BINARf NUMBER PASSED 
IN PARAMETER IN BITS. MAT BE IN RANGE 1 TO 32. IF N>16. TWO PARAMETER 
WORDS ARE USED. OTHERWISE ONLY ONE WORD. LEADING ZEROS ARE PRINTED. 
N IS ALWAYS SPECIFIED. 

PRINT UNSIGNED DECIMAL NL*«ER FROM N BIT PARAMETER. LEADING ZEROS 
ARE NOT PRINTED. A 16 BIT NUMBER EQUAL TO ZERO WILL PRINT 0". 
PRINT HEX NUMBER FROM PARAMETER OF N BITS. IF N>16 TWO PARAHETERS 
ARE USED. OTHERWISE ONLY ONE PARAMETER. LEADING ZEROS ARE PRINTED. 
PRINT N SPACES. N ASSUMED TO BE 1. 

START NEW LINE (CR-LF SEQUENCE). N ASSUMED TO BE 1. 

PRINT N ASCII CHARACTERS FROM PARAMETERS. N ASS<JMED TO BE 1. 

N/2 PARAMETER WORDS USED. 

EXECUTE ROUTINE tN. N MUST BE GIVEN AND DEFINED IN HOST PROGRAM. 



A NULL CHARACTER MEANS END OF MESSAGE. A NULL AS FIRST CHARACTER IN STRING 
MUST BE IGNORED. 

OUTPUT A MESSAGE ACCORDING TO A FORMAT STRING 

INPUTS: 

R2 - ADDRESS OF START OF F&^MAT STRING 
R4 ADDRESS OF PARAMETERS 

OUTPUTS: 

R2 AND R4 UPDATED TO END QF STRING AND PARAtCTERS 



OSTRNG: MOVB (R2)*.R1 
BEQ OSTRE 
MOV •ERRC.RO 

NCONS: CMP6 Rl.(RO) 
BEQ NCONF 
TSTB (R0)» 
BNE NCONS 
PNTF ERRMEl 



BR OSTRE 
NCONF: SUB •ERRC.RO 
ASL RO 

CALL BERRO(RO) 
BR OSTRNG 
OSTRE: RETURN 



iGET CONTROL CHARACTER 

{EXIT IF NULL CHARACTER 

(GET POINTER TO CHARACTER TABLE 

(COMPARE CHARACTER WITH TABLE ENTRr 

(BRANCH IF HATCH FOUND 

(INCREMENT POINTER 

(CONTINUE SEARCH IF NOT OF TABLE 
(REPORT BAD CONTROL CHARACTER 

JSR Rl.LPNTF 
.WORD ERRMEl 
.WORD PNT.CT 

(GET INCREMENT INTO TABLE 
(DOUBLE TO WORD COUNT 
(DISPATCH TO PRINT ROUTINE 
(GET NEXT 



/UOEDO POP 11 UDA OAV FMTR MACRO VOS.OO Tu««day 24 May S< 10:10 P»fl« 8^ 
GLOBAL SUBROUTINES SECTION 



SCO 00^1 



1 

2 
5 
4 

5 
6 



S 

9 
10 
11 
12 
1! 



14 

15 
16 
17 
16 
19 
20 
21 
22 
2i 
24 
25 
2€ 
27 
26 
29 
50 
31 



0150S6 
015O40 
01SC44 
015046 
01S04€ 
01S052 
015054 



015056 
015062 
015062 
015064 
015070 
015072 
01507» 
015100 
015102 
015104 



015106 
015112 
015116 



015120 
015124 

015130 



112«^00 
12002 7 
00140S 

004737 
000771 
000207 



004737 

112400 
004737 
005301 
001373 
032704 
001401 
005204 
000207 



012701 
004737 
000207 



012701 
004737 

000207 



000042 
016054 

015534 
016054 
000001 



000012 
015612 



000020 
015612 



iCONTROL CHARACTER WAS A QUOTE. PRINT ALL CHARACTERS TO THE NEXT QUOTE. 



CON.QU: HOVB (R2)<,R0 
CMP8 R0.»' " 
BEQ CON.QX 
PRINT RO 

BR CON.QU 
CON.QX: RETURN 

iCONTROL CHARACTER WAS 

CON. A: CALL GETCNT 
CON.Al: PRINT (R4)* 



DEC Rl 
BNE CON.Al 
BIT 01, R4 
BEQ C0N.A2 
INC R4 
C0N.A2: RETURN 



I GET CHARACTER 

(CHECK IF ENDING QUOTE 

ilF SO. GO GET NEXT CONTROL CHARACTER 

(PRINT THE CHARACTER 

CALL CPNT 

iCONTINUE PRINTING 



AN A. PRINT ASCII CHARACTERS FROn PARAGE 1ERS. 

(GET COUNT OF CHARACTERS 
(PRINT THE CHARACTER 

HOVB (R4)..RC 
CALL CPNT 

(COUNT THE CHARACTERS 

(PRINT UNTIL COUNT REACHES ZERO 

I CHECK IF R4 NOW 000 

(IF SO. INCREMENT TO NEXT EVEN ADDRESS 
(NOW GET NEXT CONTROL CHARACTER 



(CONTROL CHARACTER UAS A 0. PRINT DECIMAL NUMBER. 



CON.O: 



MOV #10. ,R1 
CALL PNTNUM 
RETURN 



(LOAD RADIX 
(PRINT NUMBER 

(NOW GET NEXT CONTROL CHARACTER 



(CONTROL CHARACTER UAS AN H. PRINT HEX NUMBER. 



CON.H: MOV •16. ,R1 
CALL PNTNUM 
RETURN 



(LOAD RADIX 
(PRINT NUMBER 

(NOW GET NEXT CONTROL CHARACTER 



/UOEOO POP U ODA [Ntv > HTR MACRO 
lAOBAi. SUBROUTINES SECTION 



Vc'>.00 Iu««day :?4 nay 95 10:10 Pao* AY 



4 0X5136 

5 01514^ 
6 



5 

<♦ 
10 



015144 

015150 
015150 
015154 
015160 
015162 
015164 



21 
25 



11 

ir 

15 
14 

15 
16 

i: 015166 
IB 015172 

19 015176 

20 015200 
015202 
015206 
015210 
015210 
015214 
015216 

24 015220 
015220 

25 015222 
26 

27 
28 

29 C 15224 
SO 015250 
01S250 
015254 
015240 
52 01S242 
55 015244 



51 



012/01 
004757 
000207 



112700 
004757 
005501 
001572 
000207 



000010 
015612 



004 757 0155S' 

112700 000015 
004757 016054 
005501 
001572 
000207 



004757 015534 
020127 000010 
101004 
060101 

004771 015244 
000207 

004157 016226 

005740 

000000 

012601 
000207 



004757 015554 



000040 
016054 



i CONTROL CHARACTER UAS AN 0. 

CON.O: NOV •6.. HI 
CALL PNTNUM 
RETURN 



PRINT OCTAL NUMBER. 



iLOAO RADIX 
iPRINT NUMBER 

iNOU GET NEXT CONTROL CmARACTER 



■CONTROL CHARACTER WAS AN N. PRINT NEU LINE SEQUENCE 



CON.N: 
CON.Nl 



CALL GETCNT 
PRINT KR 



DEC Rl 
BNE CON.Nl 
RETURN 

{CONTROL CHARACTER UAS AN R. 

CON.R: CALL GETCXT 

CMP R1.9ERRRS7 
BMI CON.Rl 
ADD Rl.Rl 

CALL OERRRTB 2(Rl} 
RETURN 
CON.Rl: PNTr ERRHEl 



POP Rl 
RETijRN 
iCONTRa CHARACTER UAS 



iCET COUNT 

iPRINT NEU I INE SEQUENCE 

MOVB •CR.RO 
CALl CPN' 

I COUNT THE SEQUENCES 

iNOu GET NEXT CONTROL CHARACTER 

CALL A PRE PROGRAMNEO ROUTINE. 

iGET ROUTINE NUMBER 

I CHECK ir DEFINED ROUTINE NUMBER 

iOOUBLE COUNT TO GET UORO INDEX 
iCALL ROUTINE 

iNOU GET NEXT CONTROL CHARACTER 
iREPORT BAD MESSAGE STRING 

JSR Rl.l.PNTr 
.UORD ERRMEl 
.WORD PNT.CT 

tflx THE STACK 

MOV (SP)..Rl 



AN S. PRINT SPACES. 



CON.S: 
CON. SI; 



CALL GETCNT 
PRINT «#• » 



DEC Rl 
BNE CON. SI 
RETURN 



iGET COONT 
iPRINT A SPACE 



MOVB t .(JO 
CALL CPNT 



5 COUNT THE SPACES 
jNOW G£» NEXT CONTROL CHARACTER 



AlOEDC P0»> U UDA ORV fMTH HACRU VOS.OO 1u«»<l«» 
(GLOBAL SUBflOUTINES SEC* ION 



'4 nay 8^ 10:10 Pag* A4 



4 

S 
6 

» 

9 

10 

u 

12 
15 
14 

15 
16 
1? 
18 
19 
2C 
21 
22 
25 
24 
25 
26 



015246 
015250 
015252 
015254 
01525€ 
015260 
015262 
015264 



015520 
015S20 
015S20 
015S52 
015406 
015464 
015500 
015516 
000010 



iFRROR RCXfTINE DISPATCH TABIC 

FRRRTB: .UOPO CAI.RE 
.WORD CALRE 
.WORD CALRfe 
.WORD CALR4 
.UCftO CALR5 
.UORO CALR6 
.WORD CALR7 
.WORD CALR8 
ERRRSZx . ERRRTB*/? 



iNOT USCO 
iNOT US€0 

I NOT usr.o 

(PRINT BASIC LINE WITHOUT uQ/l AOORCSS 

iPRINT BASIC LINE UlTH UDA AOORISS 

I CALL ALTERNATE PRINT STRING IN POP -11 «E«OR' 

, PRINT "REPLACE UOA NOOOLE m485" 

{PRINT UOA'jA CONTAINS XXkxvx- 



iBUlLO TWO TABLEb 

I FIRST CONTAINING CONTROL CHARACTERS 

i SECOND CONTAINING ROUTINE ADDRESSES 



.MACRO B'JILO 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

.ENDH 



•■.CON.OU 
A. CON. A 

D.CON.D 
H.CON.H 
O.CON.O 
N.CON.N 
R.CON.R 
S.CON.S 



/UOEOO POP II «JDA DRV rHTR MACRO ^0'>.tX> .>4 May 10:10 P*o« 8' 

GLOBAL SUBRCXJTINES SCCTION 



4 

6 



IHERE IS FIRST TABLt 

.riACRO ENTRt ARG1,ARG2 
.LIST 

.OtTE ARGl 
.NLIST 

.ENOH 



"» 0152*6 
015266 
015267 
015270 
015271 
015272 
01527S 
015274 
015275 

10 015276 

II 

12 

15 

14 

15 

16 

17 

I« 

19 

20 

21 015500 
015500 
015S02 
015S04 
015506 
015S10 
C15512 
015514 
C15516 



042 

101 
104 

110 
117 
116 
122 
125 
000 



ERRC: 



015056 
015056 
0I5I06 
015120 
0- '52 
r i' 144 
0^3166 
015224 



BUILD 
.BrTE 
.BtTE 
.BYTE 

.Byte 

.BYTE 
.BTTE 
.BtTE 
.BTTE 
.BTTE 
.EVEN 



A 

D 

M 

0 
N 
R 
S 



iHERE IS SECOND TABLE 

.MACRO ENTRY ARGl.M)G2 
• LIST 

.WORD ARG2 
.NLIST 



.ENDU 
ERRD: 



BUILO 

.yORO CON.OU 
.UORO CON. A 
.UCRO CON.O 
.WORD CON.M 
.WORD CON.O 
.UORO CON.N 
.UORO CON.R 
.yORD CON.S 



i^XLOU WITH A NULL B'TE 



[ h 

IKXX.DC POP 11 UDA DRV f MTR MACRO VOS.OO Ivi«*«la» ^* May S* 10:10 Pmm 66 
GLOBAL SUBROUTINES SECTION 

1 I PRE PROGRAMMED ROUTINES 1. 2 AND 

2 (NOT USED PRINTS ERROR MESSAGE 

4 OlSS^O CALRE. PNTF ERRMEl 
015520 004137 01622* 

015S24 005740 
01532e 000000 

5 015550 00020' RETURN 



(PRINT FRROR MESiAGf 



jOR Rl.LPNTf 
.WORD ER4ME1 
.WORD PNT.Cr 



/UDEDC POt II gOA OflV rMTR MACRO V05.00 Tuesday ?4 May 8S 10:10 Pm« 87 
GLOeAL SUBWOOTINfS SECTION 



1 

2 
I 
4 





C 15352 








015SS2 


012746 


004225 




OlSSSe 


012746 


004225 




015542 


012746 


004225 




015546 


012746 


004150 




015552 


004157 


016256 




015556 


004224 






015560 


000010 




6 


015562 


004757 


020242 




015566 








015566 


112700 


000015 




015572 


004757 


016054 


a 


015576 


012757 


016154 


9 


015404 


000207 





;P«C-PROC«AMMED ROuTlNt 4 

iPniNT BASIC LINE TOR HOST PROUftAn ERROR UHhOuI UOA AOOME'jI 
I THEN SWITCH TO EXTENDED FQRHAT 

CALR4: PNTB BASlN. MASNO. «eAS. tfBAS . ffBAS 



CALL 
PRINT 



RNTIME 
•CR 



005224 



HOV •PX.PTtPt 
RETURN 



HOV #64$. (SP) 
MOV tSAS. -CSP> 
HOV •BAS. -fSP) 
HOV «eASMO, (SP) 
JSR Rl.L«lTB 
.UORO BASLN 
.MONO PNT.CT 



H0V8 <^»,»C 
CALL 'PN'^ 



/UDEDO POP U UOA OftV fHTR MACRO VOS.OO T^sd*y .'4 May 8< 10:10 Pmm «H 
GLOBAL SUBI»OUTI»«S SECTION 



01S406 
015406 
015412 
015416 
015420 
015424 
015450 
0134 S4 
015456 
015440 
015444 
015444 
015450 
015454 
015462 



012746 
012746 
011546 
012746 
012746 
004157 
004224 
000012 
004757 

112700 
004757 
012757 
000207 



004223 
0042^5 

00416; 
004150 
016256 



020242 

000015 
016054 
016154 



I PRE PROGRAMMED ROUTINE 5 

iPRINT BASIC LINE rQR HOST PROGRAM ERROR UITh UOA AODRESS 
.•THEN SWITCH TO EXTENDED rORMAT 

CALRS: PNTB BASLN. «eASN0. •BASl ^. ( RS ) , tfSAS . ABAS 



005224 



CALL RNTIME 
PRINT aCR 



MOV tPX.PTrPE 

RETURN 



MOV •eAj,-(SP> 
MOV •eAS.-(V) 
MOV C»»5).-CSP) 
MOV •BtkSLi. (SP) 

MOV «eASfio,-<'SP) 
jsr ri.lpntb 

.tOtO BASuN 
.WORD PNT.CT 



MOVB tCR.RO 
CALL CPNT 



/UOCOO POP a UOA ORV »nTH MACRO VC*>.00 Ivjcsda* J* lay 85 10:10 Pag* Bf SLO OOM 

GLOBAL SUBftOUlINES 'ACUON 

1 I PRE PROGRAMMED ROUTINE 6 

P :CAi.l ALTFRNATE PRINT ROUTINE IN POP 11 HEMORr 

4 OtS4«>4 CAI.R6. PUSH Rp ,SAvE CVJfWENT STRING POINTER 
015464 010?4« MOV R2, C SP ) 

5 015466 012402 MOV (R4>..R2 iCCT NEW STRING POINTER 

6 015470 004?57 014 766 CALL OSTRNG jOUTPUT USING THIS STRING 

7 015474 POP R2 iGET OLD POINTER BACK 

015474 012602 MOV (SP)*.R2 

0 015476 00020^ RETURN »NOw CONTINUE TmE OLD STRING 



/UOEDO POP II UOA D*»v rriTp MAC 
GtOBAL SUBDCUTINCS SECTION 

1 

2 
5 

4 01S500 
OlSSOO 010246 

5 015502 012 70? 01155 7 
t 01550* 004757 014766 

7 015512 
015512 012602 

8 015514 000207 



VOS.OO Tuesday ^'4 May AY lOtlO Pag* 90 

iPRE-PROCRAmEO ROUTINE 7 
, PRINT 'REPLACE UOA MOOULE M74«5' 

CAtR7. PUSH R2 

MOV •XFRU.R2 

CALL O'iTRNG 
POP R2 

RETURN 



HOV R2, <SPJ 
NOV fSP>..Ri 



SCO 0099 



/UOCDC POP ) \ UDA DRV > MTR MACRO VO^.OO ru««day ^4 May SS 10:10 Pm* 91 
G OBAt S08R0UT1NFS SECTION 



4 015516 
01S516 

5 015520 

6 015524 
' 015550 

015550 
8 015552 



010246 
012702 
004717 

012M2 
000207 



011526 
014766 



tPRE POOGRArVCO ROUTINE 8 
sPRINI ■ UDASA CONTAINS 

CALRe. PUSH R2 

HOV •XSA.R2 
CALL OSTRNG 
POP R2 

RETURN 



HOV R2. f SP) 
«0V (SP).,P^ 



'A U '^jWi 



/■JOEOO POP II UOA 0«W FMTR ^CRC Vo*^ 
CLOBAi. SUenoUTZNCS SECTION 



I 
2 
5 
4 

6 

; 

8 

■> 
10 
11 
12 

13 015554 
015554 

14 015536 

15 015540 

16 015544 

17 015546 
1« 0155S2 

19 015554 

20 015556 

21 015560 

22 015562 
25 015564 

24 015566 

25 015570 

26 015574 

27 015576 
26 015600 
29 015602 

50 015604 

51 015606 
015606 

32 015610 



010046 
005001 

121227 000060 
103415 

121227 000071 

101012 

006501 

010100 

006501 

006501 

060001 

112200 

162700 000060 

060001 

000760 

005701 

001001 

005201 

012600 
000207 



.00 Iu««d«v 24 May 10:10 Pafl* V 



jGETCNT 

jGET COONT IN NEXT CHARACTERS V STRING POINTED TO Br 
iNUTBER WILL BE IK DECIMAL, ir NO NUr«ER. RETURN A 
iDEFAULT OF 1. 

I INPUTS: 

i R2 - POINTER TO ASCII STRING 
; OUTPUTS: 

Rl NUr«ER REAO OR A ONE 

{ R2 - POINTING TO CHARACTER AFTER NUr«ER 



GETCNX: 



SEO 010! 



GETCDN: 



GETCXX: 





HOV 


CLR Rl 


(START UITH ZERO COUNT 


CMP8 (R2).#'0 


jCMECK if CHARACTER A DIGIT 


8L0 CETCON 


1 BRANCH IF LOWER THAN ZERO 


CHPB (R2).»'9 




BHI GETCDN 


i BRANCH IF HIGHER THAN NINE 


ASL Rl 


iMULTIPLT NUr«ER BY 10 


HOV Rl.RO 


i SAVE 2N 


ASL Rl 


. COMPUTE 4N 


ASL Rl 


I COMPUTE BN 


ADO RO.Rl 


1 6N • 2N - ION 


HOVB (R2)*.R0 


jGET DIGIT FROM STING 


SUB t'O.RO 


tCET RIO OF ASCII 


ADO RO.Rl 


lAOD TO NUMBER 


BR GETCNX 


iGO TO NEXT CHARACTER 


TST Rl 


1 CHECK IF NUMBER IS ZERO 


BNE GETCXX 


tIF ZERO. CHANGE 


INC Rl 


{ TO OEFAtJLT OF ONE 


POP RO 





RETURN 



MOV (SP)..RO 



/UOeOO POP U UDA ORV fMTD ^CRO VO'l.OO lucvday 
GLOBAL S>«RL\>TINES SECTION 



?4 May «^ 10:10 Pag* <M 



SCO 010? 



5 
4 

6 

f 

9 

9 
10 
11 
12 
13 

14 015612 

15 015614 

16 015620 
015620 
015622 
015624 

I' 015626 
16 015630 
19 01S6S2 
015636 
015640 
015642 
015642 
23 015644 
015646 
01S6S2 
015654 
015656 
015662 
29 015664 
50 015670 
31 015672 
52 015674 
33 015676 

54 015700 

55 015704 

56 015706 

57 015710 

58 015712 

59 015714 

40 01572C 
015720 

41 015722 

42 015724 
4 5 015726 

44 015750 

45 01573? 



20 
21 

22 



24 

25 
26 
27 
26 



010100 
004737 

010246 
010346 
010546 
012403 
005005 
020127 
003401 
012405 

010446 
010504 
012702 
160102 
002002 
062702 
00141'. 
012705 
005302 
001402 
006205 
000774 
020127 
003402 
040504 
000401 
040503 
004757 

010546 
005202 
005703 
001372 
005704 
001570 



PRINT A NUMBER 



INPUTS: 



OUTPUTS: 



Rl RADIX 0^ NUr«ER 

R2 ASCII STRING TO COUNT BITS IN NUMBER 
R4 POINTER TO NUMBER CLOU WORD) 



015554 



I 



PNTNUM: 



000020 

000020 

000020 
100000 

000020 

016352 



II: 



2t: 
31; 

41: 



51; 
61: 



NUMBER IS PRINTED. LEADING ZEROS ARE PRINTED EXCErT FOR 

DECIMAL NUMBERS. 
RO CONTENTS OESTROrEO 



MOV Rl.RO 
CALL CETCNT 
PNTNUS: PUSH <R2.RS.R5> 



MOV (R4)*.RS 
CLR R5 
CMP Rl.#l6. 
BLE It 

MOV (R4)*,R5 
PUSH R4 



MOV R5.R4 
MOV #16.. R2 
SUB R1.R2 
BGE 2< 
ADO •16..R2 
BEQ 6t 

MOV «BIT15.R5 
DEC R2 
BEQ 41 
ASR R5 
BR 31 

CMP Rl.#16. 
BLE 5* 
BIC R5.R4 
BR 6* 
BIC R5.RS 
CALL DIVIDE 
PUSH R5 

INC R2 
TST R3 
BNE 6t 
TST R4 
BNE 6t 



(SAVE RADIX 

{GET COUNT OF BITS 

MOV R2. CSP) 
MOV R3. (SP) 
MOV RS.-CSP) 

GET ONE PARAMETER UORO 
CLEAR STORAGE FOR OT»CR 
MORE TMAN 16 BITS IN DMflCR? 

TES. GET SECOND PARAMETER UORO 

MOV »4. CSP) 

PUT HIGH UORO IN R4 
COIWlt BITS NOT UANTEO 
BY SUBTRACTING BITS TO USE 
FROM 16. 

IF NEGATIVE. ADO 16 FOR FIRST uORO 
IF ZERO. NO BITS ICED BE CLEARED 
START MASK UITH SIGN BIT SET 
COUNT BITS IN MASK 

SHIFT MORE BITS TO RIGHT 

MORE THAN 16 BITS IN NUTSER? 

vES. CLEAR IN HIGH UORO 

NO. CLEAR IN LOU UORO 
DIVIDE BY RADIX IN RO 
PUSH REMAINDER ON STACK 

MOV H5. (SP^ 

COUNT DIGITS ON STACK 
CHECK IF QUOTIENT IS ZERO 



/UOEOO POP II UOA 0*»V rMTR MACRO Vw*..00 Tuesday ?4 May 85 10:10 Pao* 94 
GLOBAL SUBROUTINES SECTION 

CMP B0.»10. 
BEQ 101 
NOV Rl.RS 
SUB •12..R0 
BGT 71 
MOV #S.RO 
7S: CALL DIVIDE 

TST R5 
BEQ 01 
INC RS 
8S: SUB R2.R3 

BEQ 101 
91: PRINT ••0 



1 


015754 


02002" 


000012 


2 


015740 


001425 




I 


015742 


010105 




4 


015744 


162700 


000014 




015750 


005002 




6 


015752 


012700 


000005 


; 


015756 


004757 


016552 


9 


015762 


005705 




9 


015764 


001401 




10 


015766 


00520S 




n 


015770 


160205 




12 


015772 


001406 




15 


015774 








015774 


112700 


000060 




016000 


004757 


016054 


14 


016004 


005S05 




15 


016006 


001572 




16 








17 


016010 








016010 


012605 




16 


016012 


062705 


000060 


19 


016016 


020527 


000071 


20 


016022 


00S402 




21 


016024 


062705 


000007 


22 


0160S0 








0160S0 


110500 






0160S2 


004757 


016054 


25 


016056 


005502 




24 


016040 


001565 




25 


016042 








016042 


012604 






016C44 


012605 






016046 


012605 






016050 


012602 




26 


01^^052 


000207 





lot: 



11*: 



DEC R5 
BNE 91 

POP R5 

ADO *'O.RS 
CMP R5,»'9 

BLE 111 

ADO *<'A '9 1>.R5 
PRINT R5 



DEC R2 
BNE 101 

POP <R4.R5.R5.R2> 



RETURN 



'>IQ GIO? 



iir RADIX IS DECIMAL 

i JUST GO PRINT DIGITS ON STACK 

{OTHERWISE COMPUTE NUMBER V LEADING /ERC. 

iDlVlOEND IS BITS IN NUMBER 

iDIVlSOR IS BITS PER DIGIT PRINTED 

i (5 OR 4) 

,lf REMAINDER NOT ZERO 
INCREMENT QUOTIENT 

{SUBTRACT DIGITS ON STACK 
tNO LEADING ZEROS If ZERO 
(PRINT A ZERO 

MCivB • 0,R0 
CALL CPNT 

J REPEAT UNTIL COUNT REACHES ZERO 

iGET CHACACTER FROM STACK 

MOV (SP)..R5 

iCNVERT TO ASCII DIGIT 
tir GREATER THAN A 9 
I CONVERT TO A OR HIGHER 
i rOR »CX DIGIT 
(PRINT THE CHARACTER 

M0V6 R5.R0 
CA..L CPNT 

(REPEAT FOR ALL DIGITS 
( ON STACK 

MOV (SP)».R4 
MOV CSP)..R5 
nOV (SP)».R3 
MOV (SP)*.R2 



/UD£0O POP U UOA OAv > MIR HACRO V0^.00 r«j««d«y 24 May 65 10:10 Pag* 9S 
GLOBAl. SUBROUTINES SECTION 



1 

p 








(PRINT 


ONE CHARACTER 


C 

3 
4 








iCALL 


uith macro print 


5 




1 1003 7 


003226 


CPNT : 


novB Ro errchr 




016060 








PUSH Rl 




01606C 


010146 








7 


01606P 


012701 


005676 




HOV •ERRONE.Rl 


8 


016066 


120027 


000015 




CHP8 R0,#CR 


9 


016072 


001002 






BNE 1* 


10 


016074 


012701 


005701 




HOV «ERRNL,R1 


11 


016100 


000177 


165120 




JHP 0>TTPk 


12 


016104 






PF : 


PRINTS Rl. •ERRCHR 




016104 


012746 


005226 








016110 


010146 










016112 


012746 


00OU02 








016116 


010600 










016120 


104417 










016122 


062706 


000006 






1 5 


016126 


000455 






BR CPNTX 


14 


016150 






PB: 


PRINTS Rl. •ERRCHR 




016130 


012746 


005226 








016154 


010146 










016136 


012746 


000002 








016142 


010600 










016144 


104414 










016146 


062706 


000006 






15 


016152 


000425 






BR CPNTX 


16 


0161S4 






PX: 


PRINTX Rl. •ERRCHR 




016154 


012746 


005226 








016160 


010146 










016162 


012746 


000002 








016166 


010600 










016170 


104415 










016172 


062706 


000006 






17 


016176 


000411 






BR CPNTX 


16 


016200 






PS: 


PRINTS Rl. •ERRCHR 




016200 


012746 


005226 








016204 


010146 










016206 


012746 


000002 








016212 


010600 










016214 


104416 










016216 


062706 


000006 






19 


016222 






CPNTX: 


POP Rl 




016222 


012601 








20 


016224 


000207 






RETURN 



SEQ 0104 



MOV Rl, (SP) 



MOV «ERRCHR . - f SP ) 

MOV Rl, (SP; 

MOV •2. (SP) 

MOV SP.RO 

TRAP OPNTF 

AOD •6.SP 



MOV •ERRC^«. (SP) 

HOV Rl.-(SP) 

MOV •2.-(SP) 

MOV SP.RO 

TRAP CtPNTB 

ADD •6.SP 



MOV •ERRCHR. (SP) 

MOV Rl.-(SP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP C«PNTX 

AOO 96. SP 



MOV •ERRDM. (SP) 

MOV Rl. (SP) 

MOV •2.-(SP) 

MOV SP.RO 

TRAP CtPNTS 

AOO •6.SP 

MOV {SP)».R1 



/UOEOC POP 11 OOA OAv rniR MACRO VOS.OO Ivj«»4tov ^4 n«y 85 lOilO P»g« 
U-OBAc SUBRLXJTZMES SCCMON 



• 

X 












rofinAiic,u nfc^bWtc 




c 










> 


HI In IWtKO , fNI* I •'NIB, fNiK, 


OH KNTS 


# 






Af &1 AA 


OOXc4 




MAu O T VDC 








000*13 








QO 1 D4lT 
OH \.l*ft 1 




» 




A1 37*7 


OID13C 




1 DtJTB> 






9 




ooo*o» 
















Al 37*7 


Al & 1 CA 
010i9« 


AA f.33A 


1 MtlT k • 


MAW AOv OTvDf 




1 A 












op 1 04|T 




« « 


/1 1 "i^tf 


A1 37S7 


At A.3rfV\ 




1 D4iTC . 
















1 Okil . 


Dl iCfcj tfD3 OX DA QCv « 








A1 A3AJL 
















A1 iWAM^ 










^0* H3 , C ) 




WlOc » W 
















UIOC ' C 


A1 A^AJL 












1 ^ 


UiOC »* 










MAU ^ O 1 ^ . P3 
rW VHii'.Hif 


1 UC, 1 nlA^C 3 3 J 1 H i flu 


1 A 












MAU CP PA 




• t: 




A^_37nA 








AAA A 1 A PA 


2 linn." nr«/ia Uf^i j i v 1* ^i'l" i 














Pi ICm pi 








A 1 A 1 










MAu Ol ^ CD \ 


t 7 






Al A 






rAi 1 ACTPUT. 
UHi.L. 1/3 1 HrAj 




iO 












PDP <pn P^ P4 PS Pi > 


















Mflw / CO ^ 0/^ 




















016516 


012604 










f«V (SP)..R4 




016S20 


012605 














016S22 


012602 










•«V (SP)».R2 




C16S24 


012601 










MOV CSP)..Bl 


19 


016S26 


062006 








ADO (RO)..SP 


I "ADJUST STACK POINTER OVER AROINTS 


20 


&16B30 


oooiic 








jw> aPc 





*v ''MM n»Ct<», >y'..00 Ivj*»4ay .'4 Hay «^ 10:10 
fC'ION 



4 

I 
•« 






■, 
• 






9 












10 






11 






12 






15 






14 






15 






16 


016552 






016SS2 


010246 


17 


016554 


012702 000040 


le 


016S40 


005005 


19 


016542 


006503 


20 


016544 


006104 


21 


016546 


006105 


22 


016550 


020005 


25 


016552 


101002 


24 


016554 


16000'^ 


25 


016556 


005205 


26 


016560 


005502 


2^ 


016562 


001367 


2a 


016564 






O 16564 


012602 


29 


1.16566 


OO0207 



iDIVlOE 

ioiVlOe A 3c' BIT UNfilGNCO NUMBER Br A 16 BIT JNSIGNED NiJMBfP. 
iRCPlACE OIVIOENO WITH QUOTIENT AND RE TijRN flEHAINO€R. 
(UILI NOT CHECK rOR OIVlOE BY 7FR0. 



I INPUTS! 
I RS 
I R4 
i RO 
lOUTPUTS: 
I R5 
R4 

« R5 



LOW 16 BITS or OIVIOCNO 
HIGH 16 BITS or DIVIDEND 
DIVISOR 

LOU 16 BITS or QUOTIENT 
HIGH 16 BITS or QUOTIENT 
REHAINOER 



OIVlOE: PUSH R2 



21; 



MOV •32.. R2 
CLR R5 
ASL R3 
ROL R4 
RX R5 
CHP R0.R5 
BHI 2t 
SUB R0.R5 
INC RS 
DEC R2 
BNE II 
POP R2 

RETURN 



«0V H2. VSP) 

iSET UP SHirT COUNT 

I START WITH ZERO REHAINDER 

I SHIFT LEFT INTO R5 



IMILL OIVISOR CO INTO RCmXNOCR 
tONLT SUBTRACT If IT yILL 
(SUBTRACT DIVISOR 
iPUT A ONE INTO QUOTIENT 
iCOUNT r»C SHIFTS 



HOV (SP)..R2 



/tot 00 
GlOBAc 



SiefiiVTINES <iECT10M 



!) • 

MACRO VOS.OO lu««dak .'4 Hay BY lOilO P«g« 



'AQ 0107 



» 
4 

S 
6 

* 

10 

11 

12 

IS 016570 

14 0I63''4 

15 016402 

16 016406 
1' 016412 

016412 
IS 016416 

19 016420 

20 016424 
016424 
016450 
016432 
0164 S4 
016440 
016442 

21 

22 016446 
25 016452 



015701 
116165 
105065 
016504 

042704 

010501 
062701 

012746 
010146 
010446 
012746 
104457 
062706 

004757 
001444 



002164 

000021 00O044 

000045 

000004 

177000 

000010 

000540 

000005 
000010 
017250 



It OADOn 

IlOAO and start a on program into a CONTRftAtR 
I R5 - CONTROLLER TABLE AOORESS 

I OnPRK POINTER TO START OF OH PROGRAM IN MEHORf 

lOyTPUTS: 
t 
• 
t 



If LOAD SUCCEEDS Z CLEAR 

CONTROLLER TABLE MARKED LOADED 

If ERROR Z SET 



-OAOOM: MOV OMPROG.Rl 

M0V8 DMTM0(R1).C.T0T(R5) 
CLR8 C.T0T.1(R5) 
MOV C.VEC(R5),R4 
AND CT.VEC.R4 

MOV R5.R1 
ADO K.JSR.Rl 
SETVEC R4.Rl.»PRI07 



iGET STORAGE ADDRESS Of DM PROGRAM 
iGET TIMEOUT VALUE 

iCET VECTOR Of *JDA 

BIC f*C'CT,VEC'.R4 
iCET INTERRUPT SERVICE LIM^ 



CALL UOAINT 
BEQ LOADER 



iSET UP INTERRUPT VECTOR 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

J INITIALIZE UOA UlTH SMALLEST 
t PINC BUffER AND INTERRUPTS ENABLED 
I BRANCH If AN ERROR 



•PRIC. fSP> 
Rl. CSP) 
R4. (SP) 
#5. -CSP 
CISVEC 
•10. SP 



-•uocDO po*' II uoA oftv rmn hacbo vos.oo 

oLOBAc St8«CV'IINeS SECTION 



1 


0Ib4S4 


0\2700 


000002 






016460 


004757 


016S70 




"5 


016464 


015/64 


002164 


000124 


4 


0164 72 


017764 


165466 


0001?0 


«i 


0165O0 


0*5764 


002164 


000140 


6 


016506 


0e7764 


165452 


000140 


* 


016514 


004757 


016654 




8 


016520 


0O4757 


016774 




9 


016524 


001417 






10 


016S?6 


052764 


00O057 


000052 


U 


016554 


001007 






u 


016556 


042765 


000024 


000014 


1? 


016544 


052765 


000002 


000014 


14 


01655? 


000207 







( - 

tu«sda» M May 85 10:10 Pag* 9'4 



-jCO 0108 



iBUlt-D EXECUTE SUPPi IFD PftOGf»M1 COtMND fACKf T 



riOV MP.ESP.RO 

CALL BLUCMO 

HOV D«PR0G.mC.CPK.P.'JA0R(R4) 
MOV S0MPR0G.MC.CPK«P.BCNT(R4 J 
MOV OMPROG.MC.CPK.P.OVRl (R4) 
AOO a0nPR0G.HC.CPK.P.0vRL(R4) 
CALL SNOCnO 
CALL UAITMS 

BEQ LOAOEP i ABORT If HO RESPONSE 

BIT •ST,«SK.MC.MPK.P,SIS(R4) iCMECk FOR ERRORS 
BNE LOAOEl 

BIC •CT.CMD'CT.REQ.C.f LG(R5) iCLEAR COMMAND OUTSTANOXNC fLAG 
BIS •C*.RN.C.F^LC(R5) iSET OM PROGRAM ROMINC TlAQ 

RETURN 



I LOAD MAIN PROGRAM AQORCSS 

i AND SIZE 

iLOAO OVERl Ar ADDRESS 

J SEND COMMAND TO UOA 

I WAIT fOR MESSAGE RESPONSE 



/UOCDO POP il UOA DRV r<iTR HACRO VOS.OO 1u««day c>4 May 05 10:10 Pag* 100 
oLOBAL SUBROUTINES SECTION 



SCO 0109 



^ 0165S4 
016554 
016556 
016560 
016562 

4 016564 
016566 



104455 
000042 
000000 
012254 
000264 
000207 



lODA TAIL ED TO OOUKLINE LQAO OH PROGRAM 
lOAOei: eRRD» M..eRftOS4 



LOADER: SEZ 

RET\JRN 



54 

0 



iSE7 / TO IMDICATC CMKW XCUMKO 



/uotoc 



POP 11 UOA OMV fMTR 
SUBROUTINES SECTION 



4 

& 

t 

ic 
n 
1^ 

14 

15 



16 

I' 



0165 ro 

016570 
01657? 
016574 
016600 
16 016602 

19 016606 

20 016612 

21 016616 

22 016622 
2B 016624 
^4 0166S0 

25 0166S2 

26 016636 

27 016640 

28 016642 

29 016644 
016644 

50 016650 
016650 
Bl 016652 



010146 
010046 
0165O4 
010400 
062700 
012720 
012701 
022716 
001002 
012701 
010120 
012701 
005020 
005501 
001575 



HACRO V05.00 Tuesday .4 May 10:10 Page 101 



BLOCMO 



ScO Olio 



000016 

000100 
000060 
001000 
000031 

177777 
000030 



012664 000114 

012601 
000207 



BUILD A COMMAND IN COMMAND PACKF T 



INPUTS: 

R5 
RO 
OUTPUTS: 
R4 



CONTROLLER TABLF ADORE ^<S 
COMMAND CODE 



ADDRESS Of HOST COMM AREA 
COMMAND PACKET CONTAINING REF NUMBER AND OPCODE. ALL OTHER riElOS CLEARED. 
CMO REFERRENCE NUMBER IN CONTROLLER TABLf INCREMENTED AND RESULT 
IN COMMAND PACKET, 
RO CONTENTS OFSTROtEO 



BLOCMD: PUSH <R1,R0> 



MOV 
MOV 
ADD 
MOV 
MOV 
CMP 
9NE 
MOV 

BLDCO: MOV 
MOV 

BLOC I: CLR 
DEC 
BNE 
POP 



C.RINC(R5}.R4 

R4.R0 

•HC.CEV.RO 

4HC.PSZ.CR0). 

•DUP.Rl 

•OP.MUR.(SP) 

BLDCO 

•OIAG.Rl 

Rl.(RO)* 

♦<MC.PS7>/2.R1 

(R0)» 

Rl 

BLOCl 

MC.CPK»P.0PCD(R4) 



MOV Rl. (SP) 
MOV RO. (SP) 

(GET ADDRESS OF HOST COrVY AREA 

I copy TO RO 

tCOMPlfTf ADDRESS OF COMMAND ENVELOPE 

(LOAD PACKET LENGTH 

I LOAD DIAG CIRCUIT IDENTIFIER 

I IF CODE IS MAINTENANCE WRITE 

I GET OTHER CIRCUIT IDENTIFIER 

J PUT IDENTIFIER INTO PACKET 
tGET WORDS TO CLEAR 
(CLEAR PACKET 



POP Rl 
RETURN 



SPUT OPCODE IN PACKET 
sRESTORE Rl 



MOV CSP)».HC,CPi'.P.0PC0(R4^ 
MOV (SP)..R1 



/UOCDO POP il OOA 0«V rMTB MACao 
GLOBAL SU»A(\>1XMES SFCUOM 



4 

^ 

4 



10 
11 
12 
15 
14 



.«.K> 'ucadav J4 Hay 10:10 Pa«« 10.' 
j<iNCCMO 

isENO A COMHANO TO THE UDA. 

I HARK BOTH PACKETS AVAILABLE TO THE 

lOOA. SET COrtlANO ISSUED BIT IN CONTPCX LFR TABLf AND INITIAi ]/i 
iTIHEOUT COUNTER. 

! INPUTS: 
! R5 
jOjTPuTS: 
R4 



016654 
0166M 
0166S6 
0I666C 
016664 
0166 70 
016676 

19 016704 

20 016712 

21 016716 

22 016724 
016724 
016726 

23 016730 



15 
16 
I 

IS 



010046 
010146 
016504 
005265 
016564 
012764 
012764 
005775 
052765 

012601 
«12600 
•»OO207 



000016 
000052 

000052 000104 
140000 000006 
100000 000012 
000000 

000004 000014 



CONTROLLER TABLE ADDRESS 
ADDRESS or HOST COHH AREA 



^NOCHO: PUSH <R0,R1> 



MOV C.RING(R5).R4 
INC C.REr(R5) 

MOV C.REr(R5).MC.CPK.P.CRf(R4) 
nOV •RG.0UN>RC.rLG.HC.MCT(R4) 
nOV «RG.0UN.HC.CCT(R4} 
TST 8CR5) 

BIS •CT.CM0.C.PLG(R5) 
POP <R1.R0> 



RETURN 



f%>^ RO. (SP) 
«0V Rl. (SP) 
iLOAO R4 WITH HOST GOVT AREA ADDRESS 
I INCREMENT CHO REFERENCE NUMBER 
I PUT IN PACKET 

,MARK MESSAGE PACKET AVAILABLE 
(MARK COMMAM) TO UDA 
I TELL UDA COMMAND IS THERE 
iMARK COMMAND ISSUED 



MOV 
MOV 



(SP). 
CSP). 



.Rl 
.RO 



AOEDC POP 11 U0« D«w ► MTH ma:h, 
Gl OBAt SueSLVTINIS SFCMOM 



f 
4 



4 



IC 

:i 

12 
I! 
14 

IS 

16 016 752 
016752 
016754 
1' 016756 
16 016740 

19 016744 

20 016752 

21 016754 

22 016760 
25 016762 

24 016764 

25 016^66 
016766 
016770 

26 016772 



.OO fucsday ^'4 nay 8^ 10:10 Pag* 105 



CI Reu» 



«0 Oll^- 



CLLAR THE SPtCI^IEO DATA BUTFER IN THE HOST COMM AREA 

AND LOAD BirfER DESCRIPTOR IN COMMANO PACKET TO THE B'J»rfP 



INPUTS: 



OUTPUTS! 



R5 CONTROLLER TABLE ADDRESS 
R4 ADDRESS OF HOST COTtl AREA 
RO OFFSET INTO HOST COMM AREA TO DATA BUFFER 

DATA BUFFER CLEARED 
COMMAND PACKET POINTING TO BUFFER 
BYTE COUNT SET TO SIZE OF BUFFER 
R4 • ADDRESS OF DATA BUFFER 



010046 
010146 
060400 

010064 000124 
012764 000244 
010004 

012701 000122 
005020 
005301 
001575 

012601 
012600 

00C207 



000120 



CLRBLC: PUSH <R0.R1> 



ADD R4,R0 

MOV R0.HC.CPK*P.UA0R(R4) 
nOV «HC.6SZ.HC.CPK.P.BCNT(R4) 
NOV R0.R4 
NOV •HC.BS;/2.R1 
CLR8FL: CLR (R0)» 
DEC Rl 
6NE CLRBFL 
POP <R1.R0> 



RE TURN 



I PUT 
I PUT 



nov no.-csp) 
nov Rl, (sp: 

lAOD START OF HOST COW MCA TO OFFSET 
<PUT BUFFER ADDRESS IN COmM0 PACKET 
SIZE OF DUFFER IN COrtWW PACKET 
BUFFER ADDRESS IN M 
iGET SIZE OF BUFFER IN 
(CLEAR ALL T»C WORDS 



W (SP)».R1 
NOV (SP)*.RO 



AAEOO P0(> U U)A ORV rnTR HACRO VOS.OO Tutt«d«v ^4 lay 8< 10:10 Pag* 104 
GLOBAL SUBROUTINES SECTION 



->eo 01 IS 



4 

» 

8 

9 
10 



IWAITMS 

juAIT FQA UDA TO RESPOND WITH A MESSAGE PACKt T 
I INPUTS: 

I R5 - ADDRESS OF CONTRaiER ^ABLF 

aOUTPUTS: 

t Z CLEAR IF NO ERROR 

J Z SET IF ERROR, MESSAGE PRINTED 



X 1 


016774 








UAITMS : 


PUSH <R0.R1> 








016 774 












MOV RO, 


(SP; 




016776 


010146 










MOV Rl. 


(Sf-) 


1^ 


017000 


012700 


000056 






flOV #50 .RO 


jSET TIME OUT VALUE OF 50 SECONDS 


15 


017004 


010501 








MOV R5.R1 


iPOINT TO TIME OUT CQUMTER 




14 


017006 


062701 


000040 






ADD K.TO.Rl 






15 


017012 


004757 


01 7166 






CALL SET TO 






16 


017016 


011500 






• • • 


NOV (R5).R0 


(GET ADDRESS OF UOAIP REGISTER 




1 7 

* • 


017020 


052765 


000010 


000014 




BIT •CT MSG.C FLCCR5) 


iLOOK IF INTERRUPT OCCURRED 




19 


017026 


001050 








BNE 51 


1 BRANCH IF SO 




19 


017050 


016001 


000002 






nov 2(R0).R1 


(LOOK AT UOASA REGISTER 




20 


017054 


001054 








BNE 4t 


(BRANCH IF ERROR CODE PRESENT 




PI 


017056 










BREAK 








017056 


104422 










TRAP 


CSBRK 


22 


017040 


005757 


005210 






TST KU.CSR 


(SEE IF A CLOCK ON SrSTEM 




kl 


017044 


001764 








BEQ 11 






24 


017046 


025765 


005222 


000042 




C»«> Kg.EL.2.C.T0M(R5) 


(CHECK IF TIMEOUT MAS HAPPENED 




25 


017054 


101005 








BHI 21 






2h 


017056 


001557 








BNE 11 






27 


017060 


025765 


005220 


000040 




C»» KU.EL.C.TOfW) 






26 


017066 


105755 








BLO 11 






29 


017070 








21: 


ERAOF 36. .EmOS6 








017070 


104455 










TRAP 


ClEROr 




017072 


000044 










.UORD 


56 




017074 


000000 










.UORO 


0 




017076 


012242 










.WORD 


ERR036 


50 


017100 










POP <Rl.RO> 








017100 


012601 










•«V (SI»)».R1 




017102 


012600 










MOV (SP)..R0 


51 


017104 


000264 








SEZ 






52 


017106 


000207 








RETURN 







/tOCDO POP II UOA ORV »MrR MACRO V05.00 TtM»«dak J4 May 8^ 10:10 Pao* 105 

aoBAc soe«ooTii«s section 



1 017110 0*2765 000010 C00014 
^ 017116 

017116 012«>01 

017120 012600 

S 017122 000244 

4 017124 000207 
b 01 '126 

017126 104455 

017130 000045 

0171S2 000000 

0171S4 012254 

017136 012601 

017140 012600 

7 017142 000264 

8 017144 000207 



4l! 



BIC •CT.MSC.C.FLG(I»5) 
POP <R1.R0» 



CI.Z 

RETURN 

ERRD*- S7..ERR057 



POP «R1.R0> 



RETURN 



CLEAR MtSSAGe RfCEIi/fO n AG 

HOv (sp)..r: 

MOV (SP).,»f 

GIVE NO ERROR RETiJRN 



TRAP CtEROr 

.WORD 37 

.WORD 0 

.UORD CRR0;7 



HOV (SP)>.ftl 
WOV (SP>*.RO 



irvjoeoo pop u uda orv rMin hacro vos.oo Tij»«4«y 

CtOBAL SOeR(X)II»CS SECTION 



1 ^ 

>4 May as lOilO Pa9« 10t> 



^0 0X15 



4 



8 



10 017146 
017146 

11 

12 017146 

IJ 

14 01'154 
017154 
017154 



012757 177777 002200 



000002 



jNXMI 

iNON-ExlSTANr nEMORT SERVICE ROUTINE 

I INPUTS: 

i NXHAO SET TO ZERO 

lOUTPUTS: 

t NXHAO SET TO ONES V NON EXIST ANT TRAP OCCUREO 

BCNSRV NXni 



nov • 1. NXHAO 



ENOSRV 



NXMIi 



LlOOSl: 



RTI 



/UOEDO POP 11 ClOA ORV rniR HACHO V05.00 Tuesday J4 Hay 6^ 10:10 Paga 10/ 
GLOBAL SUWCUTINES SECTION 



AQ 0116 



1 

? 

4 

S 
6 

* 

t 

S 

10 

11 

12 
IS 
14 

15 
16 
17 
18 

19 

20 

21 



017156 
017156 
017156 
017162 
017162 
017164 
017164 
017164 



052710 000010 
012600 



000002 



iUOASPV 

ivJDA INTERRUPT SERVlCf- ROUTINE 
t INTERRUPT HAS BEEN RECEIVED. 



HARKS UDA CONTROLLER TABi f tmAT m 



iTHIS ROUTINE IS CALLED BY A ( JbR RO.UDASRV] INSTRXTION FROM WIThIN 
J THE CONTROLLER TABLE. TMt PC STORED IN PC IS THE A(K)RESS OF THE C.flG 
(WORD IN THE CONTROLLER TABLE. THE STACK CONTAINS THE SAVED CONTENTS 
i» RO rOLLOUEO BY THE INTERRUPTED PC AND PS. 

I INPUTS: 

I RO ADDRESS Of C.FLC UORD IN CONTROLLER TABLE 

i STACK SAVED CONTENTS OF RO 



jOOTPUTS; 



CT.CHD CLEARED AND CT.HSC SET 
RO RESTORED ^ROH STACK 



IN CFLC UORD OF CONTROLLER TABcE 



BGNSRV UDASRV 



BIS •CT.MSG,(RO) 
POP RO 



»SET CT.HSG 
iRESTORE RO 



ENOSRV 



•JDASRVs 



1.10052: 



NOV (SP)*.RO 



RTI 



/UDEDO POP U UOA ORv > MTR HACPO V0!>.00 ru««tfay ?4 May 10:10 
GLOBAL SUBROUTINES SECTIO(<. 



lOO 



SCO 0117 



1 

2 
5 
4 
S 
6 
? 

S 

9 
10 
11 
12 
15 

14 017166 
017166 
017170 

15 017172 

16 017174 

17 017200 

18 017202 

19 017204 

20 017206 

21 017210 

22 017212 
23 

24 
25 

26 017214 

27 017220 

28 017224 

29 0172S0 
SO 

31 
32 

33 017232 

34 017234 
35 

36 

37 

38 017236 

39 017240 
40 

41 017242 
017242 
017244 

42 017246 



010246 
010346 
0050O2 

013703 003216 

006200 

103001 

060302 

006303 

005700 

001372 



013700 003220 

013703 003222 

020037 003220 
001571 



060200 
005503 



010021 
01031) 



012603 
012602 
000207 



I SET TO 

iSET TIMEOUT COUNTER TO SOME ^M«ER OT SECONDS TROM CURRENT TIME. 

! INPUTS: 
I RO 
I Rl 
lOUTPUTS: 
» RO 
8 Rl 



NUMBER OF SECONDS FOR TINEOUT 
ADDRESS UHERE TWO WORD TIHC TO BE PUT 

CONTENTS DESTROTEO 
INCREMENTED BY 2 



ICOMPUTE CLOCK TICKS TIL TIMEOUT 
ScTTO: PUSH <R2.R3> 



SETOO: 
SETOl: 



CLR R2 

MOV KU. HZ. R3 
ASR RO 
BCC SETOl 
ADO R3.R2 
A5L RS 
TST RO 
BNE SETOO 



{GET CURRENT TIME 

SET02: MOV KU.EL.RO 

MOV KU.EL>2.R3 
CMP RO.KU.EL 
BNE SET02 

;ADO TIME TIL TIMEOUT 

ADO R2.R0 
ADC RS 

iPUT RESULT IN STORAGE 

MOV R0,(R1)» 
MOV R3.(Rl) 

POP <R3.R2> 



RETURN 



MOV R2. (SP) 
MOV R3. < SP) 

I CLEAR PRODUCT 

iGCT MULTIPLICAND 

iSMirT MULTIPLIER TO RIGHT 

t IF A ONE BIT SHIFTED OUT 

( ADO MULTIPLICAND TO PRODUCT 

I DOUBLE THE MULTIPLICAND 

{CONTINUE UNTIL MULTIPLIER IS ZERO 



fGET TIME 

I IF CHANGES DURING RETRIEVAL 
1 GET IT AGAIN 



lAOD 



MOV (SP)..R3 
MOV CSP)..R2 



AJDCOO POP LI OUA ORV FHTR HACRO VuS.OO lu*«aa» 
GLOBAL SUBACUlItCS SECTION 



/4 May 8^ 10:10 Paft* lO** 



'ji.Q 0118 



21 
2< 



4 

•» 

6 

9 

■» 
10 
11 
12 
15 
14 
15 
16 
I' 
18 
19 

20 017250 
017254 
017260 
25 017264 
24 017266 
25 
26 
27 

28 017270 

29 017274 

50 017276 

51 017S02 

52 017S06 
55 017S12 

54 017514 

55 017516 
017516 
017S20 
017522 
017S24 

56 017326 

57 0175SO 

58 017552 

59 017554 

40 017540 

41 017542 

42 017546 
45 017550 

44 017552 

45 017556 

46 017560 

47 017S62 

48 017564 

49 017566 

50 017572 

51 017576 

52 017400 
55 017404 



016502 000016 
0J.2705 000006 
012722 177777 
005505 
005574 



004757 
103515 
012364 
012705 
016402 
001410 
100005 

104455 

000050 
000000 
012150 
000500 
005305 
001565 
010264 
011402 
004757 
1034 70 
010205 
042705 
006205 
006205 
006205 
006205 
042702 
020327 
001005 
020227 
002005 



017554 

000002 
000510 
000002 



000002 
020060 

177417 



177760 
000006 

000005 



UDAINT 

FUNCTIONAL OeSCRIPTIGN: 

SUBROUTINE TO INITIALIZE A UQA AND BRINO IT ON LiNf . 
ALL STEPS ARE CHECKED. AN ERROR MESSAGE IZ REPORTED 
DETECTED. 



ir ANf ERROR 



I»#»UTS: 

R5 - ADDRESS OF CONTROLLER TABLE. 
IMPLICIT INPUTS: 

C.RINC(R5) - ADDRESS GIVEN TO UDA AS START QT RING BUFFER. 

LENGTH or RING STRUCTURE IS ONE ENTRY EACH. 
OUTPUTS: 

CONDITION 2 SET IF ANY ERROR REPORTLO. CLEAR ir NO ERROR. 
R4 ADDRESS OF UOAIP REGISTER IN UDA 
R5 - UNCHANGED. 

tFiLL HOST COMMUNICATION AREA WITH ALL ONES 



UOAINT: MOV C .RINC(R5).R2 

MOV •'HC.RSZ*2*MC.ISZ>/2.R5 
UOAIIL: MOV •-l.CR2)> 

DEC R5 

BGT UDAIIL 

iOO THE INITIALIZATION 

CALL UDAIST 
BCS UDAIEX 
MOV (R3)».2(R4) 
MOV •200.. RS 
UDAIIA: MOV 2(R4).R2 
BEO L9AI1C 
BPL UDAIIB 
ERROF 24..ERR024 



BR UDAIEX 
UDAIIB: DEC R3 

BNE UDAIIA 
UDAIIC: HOV R2.2(R4} 

NOV (R4),R2 

CALL UDARSP 

BCS UDAIEX 

MOV R2.R5 

BZC •tC<SA.CNT>.R5 

ASR RS 

ASR RS 

ASR RS 

ASR RS 

BIC •tC<SA.MCV>.R^ 
CMP RS.«6 
BNE UDAIID 
CMP R2.#5 

BGE UDAI2 



iGET FIRST ADDRESS OF RING B*^(^ER 
iGET SIZE OF RING BUFFER 
• WRITE ONES TO BUFFER 
I COUNT THE UOROS IN BUFFER 
I LOOP UNTIL ENTIRE BUFFER lOITTEN 



I DO FIRST T»«IEE STEPS 

I GET OUT IF UTM MICROCODE REPORTED FAILURE 
tlAITE NEXT yORO TQ UOASA REGISTER 
I GET TRY COUNTER 
I LOOK AT UDASA 



TRAP CIERDF 

.UORD 24 

.UORD 0 

.UORO ERR024 



lURITE 0 TO UDASA (PURGE) 

iREAO FROM UDRIP (POLL ) 

iMAIT FOR STEP OR ERROR BIT 

I GET OUT IF UDA MICROCODE REPORTED FAILURE 

iGET COPT OF MODEL CODE 

laEAR OTHER BITS 

iMOVE TO RI^MT OF REGISTER 



I MICROCODE VERSION IN R2 
iCONTROLLER MODEL MUST BE 6 

i MICROCODE VERSION MUST BE 
i 5 OR GREATER 



CiO 

/UOfOO POP n UOA ORV IHTR rMCRO VO^.OO Iu««dn> .'4 May fl^ 10:10 PmQ* 10<» 1 
cCdBAL SUBRCVTIICS SECTION 

54 017406 UDAIIO: ERRO» 14.,t:M>014 
01 7406 104455 

017410 000016 

01>412 000000 

017414 011752 

55 017416 000444 BR UDAIEX 



rf)Ap CtCPO* 

.UOAC 14 

.UOftO 0 

.UORO CMk014 



/tOtOO PO^" i; UOA D«V »HTH HACPO VOS.OO Ici««d«y .'4 Mny 8< 10s 10 P 
GLOBAL SueACVTINES SECTION 



no 



■ CHECK HOST COHHUNICATION AREA FOR ALL ifW^ 





017420 


016M? 


000016 




4 


017424 


012705 


000006 




S 


0 1 74 30 


005722 






6 


017452 


001005 








V 1 ' ^ 


J JV J 






a 


VI' * JO 


nnxv74 






9 










1 e\ 

LKJ 










1 1 


01 7AA3 
01 7444 

V 4 ' 

01 744A 

01 74 

VI' ^ JV 


1 n44^*> 

aMM97 
019044 

V 






13 




000426 






1 « 










1A 






















74S4 








1 7 

& ' 




V A W^^A/ 


000006 




1 1I 


Ol 74M) 
V 1 * ^ w 








1 4 


01 74AP 

VI 1 








£ V 


01 74i^ 


V > w 






C 1 


01 74 7n 


m nML4 

VHAW^ 


OOOOOP 




3J 

cc 


m 74 74 








?5 
C9 


VA f 


At Aim 


000004 




PA 


VI r 




OOOOdO 


OOOOAA 


25 




V A V Aw A 


OOOOlO 




26 


017516 


062761 


000104 


000010 


27 


017524 


000244 






26 


017526 


000207 






29 










50 










51 










12 


017550 


000264 






55 


017552 


000207 







U0AI2: MOV C .RING(R5 ) .R2 

MOV •<MC.RS7«2.HC.ISZ>/2.R5 
U0A12L: TST (R2). 

BNE UDAI2E 

DEC RS 

BCT U0AI2L 

B(< UDAI5 

UDAI2E! ERROT 25..ERR0PS 



iGET fIRST AOORtSS (JT Rlf*". B'>>t«* 
iCiET SIZE Of BIW, B<»ftli 
I CHECK WORD IN eUFfER 
iGO TO ERROR RtWTER IF NOT /fPO 
jCOUNT THE WORDS IN BiJTFER 
iLOOP UNTIL ALL WORDS CHECkFD 



iOEPORi B<J»FER NOT CLEARED 

TRAP 
.WORD 
.MORC 
.WORD 



C 

ERRO^ ' 



BR UOAIEX 

jSEND GO BIT "'0 UDASA REGISTER TO END INITIALIZATION 
UDAI5: 



nOV C.BST(R5).R0 
ASL RO 
ASL RO 

BIS •SA.GG.RO 

MOV R0.2(R4) 

MOV C.RXNG(R5).R1 

MOV Rl.HC.HSG(Rl) 

ADO •HC.MPK.HC.NSG(Rl) 

MOV Rl.MC.CMD(Ri) 

ADO •HC.CPK.MC.CtO(Rl) 

CLZ 

RETURN 



{ERROR RETURN 

UOAKX: SE2 

RETURN 



iG£T BURST VALUE 
J SHIFT TO POSITION 

jSET THE GO BIT 
tSEND TO UOA 



I CLEAR Z AS NO ERROR IWICATION 



I SET 2 TO INDICATE ERROR OCCURRED 



/UOEOO POP U UDA ORV THTR HACRC V0«>.00 
GLOeAi. SUBROUTINES SECTION 



4 

«» 
6 



9 

9 
10 
11 

12 017554 

017534 104422 
15 017536 

017536 010146 

14 017540 016504 000004 

15 017544 

017544 042704 177000 

16 017550 006204 

17 017552 006204 

18 017554 052704 100000 

19 017560 010437 017752 

20 017564 016537 000016 017756 

21 017572 062737 000004 017756 
22 

25 
24 

25 017600 016504 000000 

26 017604 005037 002200 

27 017610 

017610 012746 000340 

017614 012746 017146 

017620 012746 000004 

01762* 012746 000005 

017630 104437 

017632 062706 000010 

26 017636 005764 000002 

29 017642 005014 

50 017644 

017644 012700 000004 

017650 104436 

51 017652 005757 002200 

52 017656 001406 
55 017660 

017660 104455 

017662 000024 

017664 000000 

017666 011750 

54 017670 000261 

5!, 017672 000424 



ru««d«y .'4 >-.a, 8^ lOslO Page 111 
lUDAIST 

isTART THt INITIALIZATION PROCESS ON TMt SELECTED 'JOfi, 
iSTOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 
, AT TEMPT ANT (JNIBUS TRANSFERS. 

I INPUTS: 

J R5 ADDRESS OF CONTROLLER TABLt 

iLOAD TABLE OF DATA TO SEND TQ ODASA REGISTER 
UOAIST: BREAK 

PUSH Rl 

HOV C.VEC(R5).H4 
AND CT.VEC.R4 



sta 0121 



ASR R4 
ASR R4 

BIS •SA.STP.R4 

hOV R4.U0AID1 

NOV C.RINC(RS).UDAI02 

ADO •MC.MSG.UDAI02 



TRAP C«B«K 

«0V Rl. (V>j 

8IC ♦^C<CT,vEC-.R4 



iSET STEP BIT IN DATA wQRO 
il.OAO INTERRUPT VECTOR 
ILOAO MENORt AOORCSS 

OF FIRST RESPONSE RING 



{START THE INITIALIZATION BY WRITING TO UDAIP REGISTER 



NOV C.UM)R(R5).R4 
CLR NXMAO 

SETVEC M.CNXNI.CPRIO? 



TST 2(R4) 
CLR fR4) 
CtRVEC #4 



TST NXNAO 
BEO UDAISG 
ERROT 20..ERR020 



SEC 

BR lOAISE 



iGCT AOORESS OF UDAIP REGISTER 
I CLEAR NENORv ERROR flAC 
iSET UP VECTOR 4 

f«V 

.-Ov 

NOV 

NOV 

TRAP 

400 

i ACCESS UDASA REGISTER 

lURITE TO UDAIP 

I GIVE UP THE VECTOR 

MOV 
TRAP 

t SEE IF A rCMORT ERROR OCCURRED 



•PRI07. CSP 
•NXMI. (SP) 
•4, (SP) 
♦5. CSP) 
CISVEC 
•10. SP 



•4.R0 

CtCvEC 



TRAP 
.WORD 
.yORO 
.WORD 



CIERO*^ 

20 
0 

ERR020 



10 



/UOEOO POP U UOA D«v » MTR HACRO V05,00 Iuc«d«» P4 H«y 55 10:10 P«9« 11^ 
GLOBAL SUBROUTIMES SECTION 



1 

? 
5 
4 
5 
6 

r 

8 
9 
10 
11 
12 
15 
14 
15 
16 
17 

le 

19 

20 



017674 012/57 004000 020216 
01^702 012705 017750 



017 706 004 757 020060 

017712 105414 

017714 004755 

0177H> 105412 

017 720 006557 020216 

017724 052757 040000 020216 

017752 001005 

017754 012564 000002 

017740 000762 

017 742 000241 
017744 

017744 012601 

01 '746 000207 



iSET <J»> LOOP PARAMETEBS TO FXECUTl 

UOAISG: HOV •SA.Sl.UOARSO 
HOV KOAIOT.RS 

jUAIf FOR AND CHECK RESPWSE DATA 

UOAISL: CALL UDARSP 
BCS UOAISC 
CALL 0(R5)* 
BCS UOAISE 
ASL UDARSO 
BIT •SA.S4.<JDARSD 
BNE UOAISX 
HOV (R5)..2{R4) 
BR UOAISL 



UOAISX ! 
UOAISE: 



CLC 

POP Rl 
RETURN 



THE FOUR STEPS Of INITIALl/ATION 

{STORE RESPONSE MASK 
iANO INOCX TO TABLE 



iWAIT FOR STEP OR ERROR BITS 
(EXIT V ERROR 

I CALL RESPONSE CHECKER fQH STEP 
iGET OUT If ERROR 
jSHin TO NEXT STEP BIT 
•CHECK ir NOU AT STEP 4 
iCET OUT ir SO 

iURITE OATA TO UDASA REGISTER 
jSTAr IN LOOP 

iCLEAR CARRY FOR NO ERROR INOICATIOM 

HOV (SP)..Rl 



/UOEDO POP 11 UOA OHV » MTR MAC»0 ^v' 
GLOBAL SUBRLVriNES SECTION 



1 






3 


017750 


017/66 


4 


017752 


000000 


S 


017754 


017774 


6 


017756 
017760 


000000 


; 


020014 


8 


017762 


100000 


<» 


017764 


020052 


10 






u 






12 






15 






14 


017766 


012701 


15 


017772 


000422 


16 






17 






18 






19 






20 


017774 


013701 


21 


020000 


000301 


22 


020002 


042701 


23 


020006 


052701 


24 


020012 


000412 


25 






26 






27 






28 






29 


020014 


015701 


SO 


020020 


042701 


51 


020024 


052701 


52 


020030 


000403 


35 






34 






55 






56 






57 


020032 


010201 


56 


020034 


042701 


59 






40 






41 






42 


02O04O 


020102 


45 


020042 


001405 


44 


020044 






020044 


104455 




020046 


000051 




020050 


000000 




020052 


012144 


4T, 


020054 


000261 


46 


0?0056 


000207 



004400 



017752 

177400 
OlOOOC 



017752 
177400 
020000 



157 760 



.00 Iu««da» C< May 8^ 10:10 Pafl* 113 

lOATA TO BF SENT AND RECElVfO Bt UDA INITIALIZATION 



'>C0 0125 



UOAIOT : 
UOAIOl: 

UD«I02: 

UDAI05: 



.UORO UOAIRl 
.WORD 0 
.WORD U0AIR2 
.WORD 0 
.WORD U0AIR5 
.WORD SA.TST 
.WORD U0AIR4 



iriRSr UORO RESPONSE CHECK ROUTINE 

(FIRST UORO TO SEND TO UOASA 

I SECOND UORO RESPONSr C»CCK ROUTINE 

I SECOND WORD TO SEND TO UDASA 

i THIRD UORO RESPONSE CHECK ROUTINE 

I THIRD UORO TO SEND TO UDASA 

trOURTH UORO RESPONSE CHECK ROtjTINE 



{RESPONSE CHECK FOR FIRST WORD FROM UOASA 
J CHECK FOR PROPER CONTROLLER TrPE 



JOAIRl: HOV #SA.S1>SA.0I.R1 
BR UDA IRC 



iSET STEP ONE BIT 
iNOU COMPARE 



I RESPONSE CHECK FOR SECOND UORO FROM UDASA 
iCHECK FOR ECHO OF INTI AND VECTOR 



U0AIR2: HOV UOAIOl. Rl 
SUAB Rl 

BIC #177400. Rl 
BIS tSA.Sa.Rl 
BR UOAIRC 



iCET UORO SENT tq iXASA 
iGET HIGH 8 BITS 

tSET STEP 2 BIT 
jNOU COMPARE 



{RESPONSE CKCK FOR THIRD UORD FROM UQASA 

I CHECK FOR ECHO OF MESSAGE AND COMMAND RING LENGTHS 



UDAIR3: MOV UOAIOl. Rl 
BIC #177400. Rl 
BIS #SA.S3.R1 
BR UOAIRC 



tGET WORD SENT TO >X>ASA 
iJUST LOU 8 BITS 
;SeT STEP 3 BI* 
(NOU COMPARE 



iRESPONSE CHECK FOR FOURTH UORO FROM UDASA 
sCHECK FOR ECHO OF PURGE AND LFAIL BITS 



UDAIR4; MOV R2.R1 

BIC #tC*SA,S4.SA.MCV>,Rl 



I GET RESPONSE FROM UOA 

J KEEP MICROCODE VERSION AM) STEP 4 



iCOMPARE EXPECTED DATA IN Rl UlTH ACTUAL DATA IN R2 



UOAIRC: CMP R1.R2 
BEQ UDAIRX 
ERROF 25..ERR025 



SEC 

iJOAIRX: RETURN 



(COMPARE THE DATA 

(EXIT IF COMPARED CORRECTL» 

(REPORT ERROR 

TRAP C»ERO^ 
.UORO 25 
.UORO 0 
.UORO ERRC25 



AJOCDO POP II 00* 0«W rMTft "ACHu 
GLOeAc SIJBROUTINES SECTI94 



I 
4 



10 

11 

12 
15 
14 
15 
16 

16 020060 
020060 

19 020062 

20 020070 

21 020074 

22 020076 

23 020102 

24 020106 
020106 

25 020110 

26 020116 

27 020120 
020120 

28 020122 

29 020126 

30 020130 

31 020136 

32 020140 

33 020142 
54 020150 

35 020152 

36 020156 
020156 
020160 
020162 
020164 

37 020166 



010146 
052757 
012700 
010501 
062701 
004757 

012601 
033764 
001024 

104422 

005757 
001770 
023765 
101005 
001363 
025765 
103757 
016402 

104455 

000026 
000000 
012016 
000407 



.OO <ue«da> J4 May 8t 10:10 Pag* 114 
iUOARSP 

luAIT FOR UOA 10 RESPOND UITH DATA IN UDASA REGISTfcR. 
lEITHER STEP BIT rRO^t MASK IN LOCATION UOARSD OR ERROR BV 
iUiLL CAUSE A TERMINATION. 

I AN ERROR MESSAGE WILL BE PRINTED IF THE UOA OOf j NOT RESPOND 
I IN 10 SECONDS OR IF ERROR SETS. 



OfO 0124 



t INPUTS: 



sOUTPUTS: 



UDASRO - MASK OF STEP BIT IQ LOOK FOR 
R5 ADDRESS OF CONTROLLER TABLE 
R4 ADDRESS OF UOAIP REGISTER 

ERROR MESSAGE IF TIME OUT ON RESPONSE OR ERROR BIT SETS 

R2 DATA FROM LOASA REGISTER 

CARRY SET IF ERROR BIT SETS OR TIME 0«JT 



100000 020216 
000012 

000040 
017166 



020216 000002 
005210 

005222 000042 

005220 000040 
000002 



UDARSP: PUSH Rl 

BIS •SA. ERR. UOARSD 
MOV #10., RO 
MOV R5.R1 
ADD K.TO.Rl 
CALL SET TO 
PGP Rl 

UDARSl: BIT UOARSD. 2(R4) 
BNE VOARS2 
BREAK 

TST KU.CSR 
BEQ UDARSl 

CMP KU.EL»2.C.T0M(R5) 
BHI II 
BNE UDARSl 
Cy9 KU.EL.C.T0<R5) 
BLO UOARSl 
1*: MOV 2(R4}.R2 

ERROT 22..ERR022 



BR UDARSE 



MOV Rl. (SP) 
iSET ERROR BIT IN MASK WORD 
»S£T UP FOR 10 SECOND TIMEOuT 
tPCINT TO COUNTER IN CONTROLLER TABLE 



MOV (SP)..R1 
iLOOK AT ERROR AND STEP BIT 
(BRANCH IF EITHER SET 

TRAP CSBRk 

tSEE V CLOCK ON SfSTEM 

I CHECK IF TIME OUT OCCURRED 



iGET REGISTER CONTENTS 
iREPORT TIME OUT ERROR 

TRAP ZtEWf 

.UORO 22 

UORD 0 

!uORO eRR022 



110 



/UKDO POP 11 UOA ORV miR liACftO V05.00 Tuc«d«> J4 May 0f 10:10 P««« 115 
CLOBAv SOBRCXJIIHIS SECTION 



1 

» 0201^0 
4 020174 
■i 020176 
020176 
020200 
020202 
02C204 

6 020206 

7 020210 
8 

<* 
10 

11 020212 

12 020214 
15 

14 

15 

16 020216 



016402 
100006 

10445S 

000025 
000000 
011762 
000261 
000207 



000241 
00020" 



000000 



000002 



iCHECK ir ERROR BIT SET 

U0ARS2: MOV 2(R4).R2 
BPL UOARSX 
ERROf 21..ERR021 



UDARSE: 



SEC 

RETURN 



{NORMAL EXIT 

OOARSX: CLC 

RETURN 

LOCATION rOR STEP BIT MASK 
UDARSO: .WORD 0 



GET REGISTER CONTENTS 
(EXIT ir ERROR NOT SET 
(REPORT ERROR INFQ 

TRAP zttnf 
.WORD 2; 
.UOPD 0 
.UOW> ERR021 



(CLEAR CARR< AS NO ERROR INDICATION 



(LOAD Br CNkLiNG ROUTINE 



JiO 



/UOEDO POP II UOA Dftv rnia macro V0*>.00 Iu««d*y .^4 Hay 8^ 10:10 Pag* Uc 
CLOBAt SUBHOyTINES SECTiON 



4 

020220 
O 02022C 
' 02022« 
A 020252 
9 020240 
020240 
020240 



0627S7 
005557 

012777 



000002 



000001 
005222 
000105 



005220 
162750 



IKUIII 

iCLOCK INTERRUPT SERVICE ROUTINE 
BGNSRV KUllI 



ENDSRV 



AOO •L.KU.EL 
AOC KU.EL*2 

nov •KuouT. .acu.csR 



'jCO 0126 



KUllIi 
(COUNT THE INTERRUPT 

iRESTART THE CLOCK 

L 10055: 



RTI 



ZUKOO POP II UOA 0«V ►MTR HACBO vo» 
GtOBAc SOBROUTItCS SECTION 

I 
2 
5 
4 

6 

5 
« 

10 

n 

12 

15 02024? 005757 OOS^IO 

14 020246 001465 

15 020250 
020250 010046 
02C252 010546 
020254 010446 
020256 010546 

16 020260 015705 005220 

17 020264 015704 005222 

18 020270 015700 005216 

19 020274 004757 016552 

20 020500 012700 000074 

21 020504 004757 0165S2 
k2 020510 

020510 010546 

25 020512 004757 016552 

24 020516 
02U516 010546 
020520 004137 01«^264 
020524 005704 
020526 000002 

25 020550 020527 000011 

26 G20554 005004 

27 020556 

020556 112700 000060 

02O542 004757 016034 
2S 020546 

020546 010546 

020550 004157 0162o4 

020554 005727 

020556 000002 
?<* 020560 

020560 0126C5 

30 020562 020527 000011 

31 020566 00S004 

32 020570 

020570 112700 000060 

020574 004757 016054 
55 020400 

02O400 010546 

020402 004157 016264 

020406 005755 

020410 000002 
34 020412 

02041<r 012605 
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'^Q 0127 



PRINT RUNTIMt 



iIltf>UTS: 
I KU.EL 
i KU.H2 
I OUTPUTS; 



CONTAINS ELAPSED TIMI 
HERTZ OF CLOCK 



RNTIME; 



111 



2li 



JF CLOCK ON STSTEH: 

" RUNTIME MMiMMiSS " PRINTED 
IF NO CLOCK: ONE SPACE IS PRINTED 



TST Kg.CSR 
BEQ RNTIMX 
PUSH <R0,RS,R4,R5' 



MOV Kg.EL.RS 
MOV Kg.EL»2.R4 
MOV KU.HZ.RO 
CALl DIVIDE 
MOV .60. .RO 
CALL DIVIDE 
PUSH R5 

CALL DIVIDE 
PNT RNTIM.R5 



CMP R5,»9. 
BGT II 
PRINT •*0 



PNT RNTini.RS 



POP R5 

CMP R5.« 
BGT 21 
PRINT *' 



PNT RNT 



POP 'R5.R4.R5,R0> 



I CHECK If A CLUCK PRESENT 
i BRANCH ir NOT 



J GET ELAPSED TIME 



MOV RO. (SP/ 

MOV R5. (SP> 

MOV R4. (SP) 

MOV R5. (SP) 



iGCT SPEED OF CLOCK 

iCOr«>UTE S£COM>S V ELAPSED TIME 

iNOU DIVIDE Br 60 

, TO COMPUTE MINUTES 

tSAVE REMAINDER AS SECONDS 

MOV R5,-CSP) 

{DIVIDE Bv 60 AGAIN 
(PRINT HOURS 

MOV R5.-(SP> 
JSR Rl.LPNT 
.yORO RNTIM 
.UQRO PHT.CT 



iir MINUTES 9 OR LESS 
{PRINT A LEADING ZERO 

(NOW PRINT MINUTES 



{GET SECONDS 

lir 9 OR LESS 

(PRINT A LEADING ZERO 

(NOW PRINT SECONDS 



I HOURS IN R5 



Move t'O.Ro 

CALL CPNT 

MOV R5.-(SP) 
JSR Rl.LPNT 
.yORO RNTIMl 
,UQflD PNT.CT 

MOV <SP)..R5 



MOVB t'O.RO 
CALL CPNT 

MOV R5. (SP"* 
JSR Rl.LPNT 
.yORO RNTIM2 
.WORD PNT.CT 

MOV (SP)..R5 



L 10 

0204^4 012604 

020416 012605 

020420 012600 
lb 020422 RNTXHX: PRINT «• > 

020422 112700 000040 

020426 004737 016054 

54» 0204S2 000207 RETURN 



HOV (bPj..R« 
HOV (SP>-,R5 
HOV fSP).,»0 

I PR INT A SP4CF 

now • .RC 

CALL CPNT 



/UOeoo POP 11 UOA Oftv rMTR MACRO V05.00 Tvi*«dav (.>4 Hay 83 10:10 Pag* llA 
GLOBAL SUBROUTINES SECTION 

DATE: GMANIO OATtQ.OATEI.A, l.l.U..'t'' 



SEO 0\^U 



1 












m444 1 






A904^ 










• < 
















\/V 








1 77777 




























p 
c 




O IP 70S 

VAC ■ v*^ 




3 




1P15P7 




4 


02O464 






5 


020466 




000071 


(. 
\j 




101040 




7 


0PO474 


121527 


000055 


g 


0^0500 


001406 






030502 


121527 

4K * • 


000060 


10 


020506 


10S432 




1 1 


020510 


122527 


000071 




VC 


101027 




IS 


0P0516 


122S27 


000055 






001024 




15 




0127O4 


OOOC14 


16 


020530 


012703 


00334 7 


17 








1ft 








19 








20 








21 








22 












OASP<V> 




24 








25 


0P0560 






26 


02O5^ 






27 


02O5M 






20 


020566 


001407 




29 


020570 


005304 




SO 


020572 






51 


020574 








020574 


004137 






020600 


01150S 






020602 


000000 




32 


020604 


00071S 




53 


020606 


012701 


00S3O6 


34 


020612 


01O4OS 




35 


020614 


020327 


000012 


36 


020620 


103404 




37 


020622 


112721 


000061 


3a 020626 


162705 


000012 


S9 0206S2 


062705 


000060 


40 020636 


110321 




41 


020640 


112721 


000055 


42 
43 


020644 


062704 


005412 


44 


020650 


012703 


005272 


45 


020654 


005000 





rpAP 
BR 

.WORD 
.WORD 
.WORD 
.UORO 



MOV •0ATEI.R5 

CMP8 (R5).»0 

BLO OERR 
DAY: CMPB (R5)..#'9 

BHI OERR 

CMPB (R5).#- - 

BEQ OASl 

CMPB (R5).«'0 

BLO OERR 

CMPB (R5)..#'9 

BHI OERR 
OASl: CMPB (R5)».#' - 

BNE OERR 

MOV •12. ,R4 

nOV •nONTHS.R5 
MONl: CLR RO 

C^PB (R5).(R5). 

BEQ H0N2 

INC RO 

M0N2: CMPB 1(R5).(RS). 
BEQ M0N5 
INC RO 

M0N3: cm 2(RS).(R5)* 

BEQ M0N4 

INC RO 
MOM: TST RO 

BEG M0N5 

DEC R4 

BNE MONl 
OERR: PNTr OATEX 



iCET POINTER TO ANSUER 



lOOOOf: 



C»GMAN 

10000* 

DATE I 

T*C0OE 

OATEO 

-I 

TfLOLiM 

TiHiL 



iGET NUrSER Of MONTH 

tGET POINTER TO MONTH NAMES 



BR DATE 

HONS: MOV •OATEO.Rl 
MOV R4.R3 
CMP R5.#10. 
BLO M0N6 
MOVB •' l.(Rl)> 
SUB •10..R5 

M0N6: AOO t'O.RS 

MOVB R3.(R1)* 
M0V8 -.(Rl)» 
ADD «0AYS-1.R4 

MOV 40ATEI.R3 
CLR RO 



JSR Rl.LPNTr 
.UORO OATEX 
.UORO PNT.CT 



(GET POINTER TO DATE FOR FORMATTER 
tGET COPY OF MONTH NUMBER 
I IF 10 OR GREATER 

|POT A -1- IN OUTPV,' 

I CONVERT MONTH NUMBER TO ASCII 

I PUT A NUMBER IN OUTPUT 

iPUT A IN OUTPUT 

I GET POINTER TO DAYS IN MONTH 

t INDEXED BT NUMBER OF MONTH 
I GET POINTER TO DATE INPUT 



NiO 



/UDEDO POP -11 UDA OAV rnTR MACRO VOS.OO Tut«d«y ^4 May 0^ 10:10 Pafl« 110-1 
CLOeAL SUBROUTINES SECTION 



51 
5^ 



46 0^0656 

47 020662 
4d 020664 

49 020666 

50 020670 
020672 
020674 

55 020676 

54 020700 

55 020702 

56 020706 

57 020710 
56 020712 

59 020714 

60 020716 

61 020720 

62 020722 
65 020726 

64 020732 

65 020754 

66 020736 

67 020740 
6a 020742 

69 020744 

70 020750 

71 020752 

72 020756 
75 020760 
74 020762 

020764 
020766 
020770 
70 020772 
79 020774 
SO 021000 
021002 
021004 
05 021006 

04 021010 

05 021012 

06 021016 

07 021020 
00 021024 
09 021026 

90 0210S2 

91 021034 

92 021036 
95 021042 

94 021046 

95 021050 

96 021054 

97 021056 
90 021060 
99 021062 

100 021064 

101 021066 

102 021070 



75 
76 
77 



81 
02 



12132^ 
001415 
111521 
006500 
OlOOOP 
006500 
006500 
060200 
112502 
162702 
060200 
000762 
120014 
101527 
005700 
001725 
062705 
121527 
001520 
112521 
010504 
005000 
005002 
121427 
105416 
121427 
101015 
006500 
010003 
006500 
006500 
060500 
112405 
162705 
060500 
005202 
000757 
105714 
001271 
020227 
001407 
020227 
001265 
020027 
103660 
000415 
012702 
020027 
103002 
012702 
105712 
001402 
112221 
000774 
112521 
001376 
000207 



000055 



OAYl: 



000060 



DAT2: 



000005 
000055 



000060 
000071 



YERl; 



000060 



000002 
000004 
003554 



003427 
000106 

003432 



rER2: 



rER3: 



YEH4; 



TER5: 



CMPB (R5).»' 
BEQ 0AT2 

HOVB (R5).(Rn. iPUT DAT CHARACTER IN OUTP'JT 

ASL RO 

MOV R0.R2 

ASL RO 

ASL RO 

ADO R2.R0 

MOVB CR5)..R^ 

SUB ••0.R2 

ADC R<.RO 

QR OAYl 

CMPB R0.{R4) 

BHI OERR 

TST RO I SEE ir DATE IS ZERO 
(ERROR IF SO 



BEQ OERR 
AOO tfS.RS 
CMPB (R5).»' - 
BNE OERR 
MOVB CR5)».(R1)^ 
MOV R5.R4 
CLR RO 
CLR R2 

CMPB (R4).#-0 

BLO YER2 

CMPB (R4),»'9 

BHI YER2 

ASL RO 

nOV R0.R3 

ASL RO 

ASL RO 

ADD R5,R0 

MOVB (K«)».R5 

SUB t'O.RS 

ADD R3.R0 

INC R2 

BR YERl 

TSTB CR4) 

BHE OERR 

CMP R2.#2 

BEQ YER5 

CMP R2.#4 

BNE OERR 

CMP R0.*1900. 

BLO OERR 

BR YER5 

MOV •YEAR19.R2 

CMP R0.*70. 

BHIS YER4 

MOV •YEAA20.R2 

TSTB (R2) 

BEQ YER5 

MOVB (R2)*.(R1)« 

BR YER4 

MOVB (R5)*.(R1)* 
BNE YER5 
RETURN 



J CHECK rOR ■' " BETWEEN DAY 
1 AND YEAR IN OUTPUT 

I PUT ■ IN OUTPUT 
iGET COPY OF INPUT STRING POINTER 



f i I i 

/UXOO POP \l UDA ORV »Hti) NACKO VOS.OO Ivjccday J4 May 85 lOilO Pag* US 2 ^CO oill 

GLOBAL SUei»CUTII«S StC'lON "^"^ 



lOS 

104 02107? ENDHQO 



/UOeOO POP U UOA ORv »MTR MACRO W^.OO .'4 n«y S< 10:10 P 

PftOTECTZON T««L( 



1 

4 

s 

• 

B 

9 

10 021072 
021072 

il 

12 021072 

15 021074 
14 021076 
15 

16 021100 
I' 



.S8TTL 



PftOTECTION TABU 
BGNMOO 



I TMIS TABLf IS USED By THt RUNTIME SERi/ICFS 
I TO PftOTECT THE LOAD MEDIA. 
I • 

BGNPftOT 



^IPROT: 



177777 
177777 
177'77 



1 
1 

-1 

EMOPftOT 



lOrrSET INTO P TA8LL f(» CS« ADORE ^i, 
iCVrSET INTO P TABLE FOD MASSBUS AOOAES. 
iOrrSET INTO P TABLE FOR DAIVC NUNKR 



INITIAL I7t <,tCTlPN 



4 

7 



8 


021100 








021100 






10 


021100 








021100 


OU'OO 


000040 




021104 


104447 




11 


021 lOA 








021106 


105415 




12 


021110 








021110 


012700 


000057 




021114 


104447 




J5 


021116 








C21116 


105411 




14 


021120 








021120 


012700 


000056 




021124 


10444 7 




15 


021126 








021126 


105405 




lb 


021150 








021150 


012700 


0OOO54 




021154 


104447 




W 


021156 








0211 36 


105401 




16 


021140 








021140 


104444 




19 








20 


021142 


012700 


000005 


21 


021146 


050057 


0021*4 


22 


0211S2 


001011 




2S 


021154 


012700 


000004 


24 


021160 


050057 


002144 


25 


a? 1164 


001004 




26 


021166 


006500 




27 


021170 






28 


021170 


050057 


002144 


29 


021174 


001761 




SO 


021176 


010057 


005206 


31 


021202 


004757 


012564 


52 


021206 








021206 


104451 






021210 


010057 


002146 


53 


021214 


017757 


160726 



.oo lvj«»<tey .4 May S% 10:10 Pag* l.^o 
.SerTL INITIALIZE SECTION 

!*TME INITIALIZE SECTION CONTAINS THfc COOING THAT IS PeRTOWCO 
I AT THE BEGINNING 0*^ EACH PASS. 



-iEQ 0155 



54 

55 
56 
57 

58 021222 

39 021226 

40 021252 

41 021256 



000105 
005057 
005057 
005057 



005210 
005220 
005222 



BGNINIT 

(4EA0Er oer. START 

BCONPLETE INITl 
REAOEr •E.r. RESTART 

BCOMPIETE INITl 
REAOEF •Er. CONTINUE 

BCOHPLETE INITl 
REAoer •er.PUR 

BCOHPLETE INITl 
INI TOT: OOCLN 



INITl i 



INIT2: 
INIT5: 



LflNIT;: 
iCMECK V STARTED Bf OPERATOR 

nov 

TRAP 

» IF NOT. 

8CS 

TRAP 

KS 

«0V 
TRAP 



BCS 

HOV 
TRAP 

BCS 
TRAP 



ABORT PROGRAPI 



«0V •SO.^m.RO 
BIT RO.SFPTM. 
BNE INZT2 
MOV tSO.CNS.RO 
BIT RO.STPTBL 
BNE INIT2 
ASL RO 



iBUZLD nOOE MQRO FROM SOFTWARE QUESTIONS 

I SEE ir RErORtlAT 

t BRANCH IF SO 

I SEE IF RECONSTRUCT 



I BRANCH IF SO 
I SEE IF RESTORE 
ASSUME SO.STR EQ S0.CNS«2 
BIT RO.SFPTBL 

BEQ ZNITQT iZF NOT, ABORT PRQCRAn 

wv Ro.nooe tSAvE noDE flags 

CALL RESET iRESET All UNITS 

MEMORY FFREE iRESET START OF FREE rCMGRr 

TRAP 

nov 

MOV aTFHEE.FSIZE iRESET SIZE OF FREE r«nORT 



{INITIALIZE CLOCK 

KU0UT.-1O5 
CLR KW.CSR 
CLR KU.EL 
CLR KU.EL. 2 
CLOCK L.RO 



«EF.STAPT,RO 
C*RCFG 

INITl 

•EF. RESTART .RO 
CMIEFG 

INITl 

«EF. C0NTINUE.ro 
C»REFG 

INITl 

4EF.PUR.ro 
CfREFC 

INITl 

CtOCLN 



lOATA TO SEND TO KUll TO START 
iMARK CLOCK AS NOT ON SYSTEM 
I CLEAR ELAPSED TIME 

J SEE If AN L CLOCK PRESENT 



CtMEM 
RO.FFREE 



CLOCK 



/LOfOO POP II UOA D«V »MTB ftACBO VU^.OO Iu««4*y 24 M«v 8< 10:10 Pl 
IM'IALIZC SECTION 



BCOr«>LETE KtES 
CLOCK P.RO 



i I 
120 1 





021236 


012700 


000114 




021242 


104462 






021244 
021244 


105415 




4^ 


021246 








021246 


012700 


000120 




0212S2 


104462 




44 


0212S4 
021254 


103407 




4^ 


021256 


005057 


005210 


46 


021262 








021262 


004157 


016226 




021266 


004075 






021270 


000000 




4 f 


021272 


000426 




48 


021274 


012057 


005210 


49 


021S00 


012057 


005212 




021504 


012057 


005214 


51 


021510 


01205"^ 


005216 


52 


021514 








021514 


015746 


005212 




021520 


012746 


020220 




021524 


015746 


005214 




021550 


012746 


000003 




021554 


104457 






021556 


062706 


000010 


55 


021542 


012777 


000105 161640 


54 


021550 







KtES; 



BCOMPLETE KYfcS 

CLR KU.CSR 
PNTr NOCLOCK 



BR KMC 

MOV (RO).,KW CSR 

MOV (RO)«.KU.BRL 

HOV (RO)*.KU.VEC 

MOV (RO'.KU.HZ 

SETVEC KW.VEC.#KWr I.KU.BRL 



KMC: 



nov •KUOUT. .OKU.CSR 



HOV ♦'L,*«0 
TRAP C»Ct C 

BCS •<»fS 

iSEt IF A p Clock present 

NOV • P.RO 

TRAP C»CLCf 

BCS KfES 
tir NEITHER, CLEAR CSR STORAGE UORO 

JSR Rl.LPNTf 
.WORD NOCLOCK 
.WORD PNT.CT 

iSTORF DATA RETURNED 



I SET THE VECTOR 



I START THE CLOCK 



NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 



KM.BRL.-(SP) 
•KWllI. (SP) 
KU.VEC. CSP) 
•5. CSP) 
CfSvEC 
•10, SP 



NI'IAi IZt SECTION 



UO lu««dav 24 hay 10:10 Pafl* 



i i 
131 



1 






1 INITIALIZE 


CONTROLLER TABlF 


STORAGE WITH A WORD 0^ ZEROS 




021S50 


015/57 


002146 00^156 


MOV 


f FREE. C TABS 


iSTORE START Of CONTROLLER CABLES 


4 


021556 


005077 


160574 


CLR 


BCTA8S 


(ZEROS MARKS END CONTROLLER TA6(.FC 




021S62 


005057 


002160 


CLR 


CTRLRS 


1 CLEAR CONTROLLER COUNT 


6 


021 SM 


012701 


005456 


MOV 


•IPAORS.Rl 


1 Rl » IP ADDRESS 




021572 


012702 


000010 


MOV 


♦«. .R2 


1 R? IS A COUNTER 


8 


021376 


005021 


11: 


CLB 


(Rl). 


1 CLEAR ENTRr 


9 


021400 


005502 




0€C 


R2 


i DONE? 


10 


021402 


0C15'5 




BNE 


1« 


1 ir NOT, BRANCH 



11 

12 
15 

14 021404 

15 021406 
021406 
021410 

16 021412 
021412 

17 
16 
19 

20 021414 

21 021420 

22 021422 
25 021424 

24 021426 

25 021426 

26 021426 

27 021450 
26 0214S4 
29 021440 

50 021444 

51 021446 

52 021452 
55 021456 



005002 

010200 
104442 

105110 



015705 
005715 
001416 
021015 



001465 
016501 
042701 
026001 
001002 
0001 S7 
062705 
000760 



iGET A P TABLE rPOM ORi 

CLR R2 
INIT4: GPHARD R2.R0 



bncomplete NXTTAB 



(LOGICAL UNIT MJMBER IN R2 
I GET POINTER TQ A P TABLE 

nov 

TRAP 

i IGNORE IF NO TABLE RETURNED 

BCC 



R2.R0 
CtGP>«D 

NX T TAB 



(SEE ir A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P- TABLE 



002156 



000004 
177000 
000002 

022076 
000054 



MOV CTABS.R5 
INIT5: TST (R5) 

BEQ NEUTAB 

CMP (R0).(R5) 

ASSUME C.UAOR EQ 0 
ASSLVC MO.UBA EQ 0 

BEQ SAHTAB 

NOV C.VEC(R5).R1 

BIC •tC«Cr.VEC>.Rl 

CMP H0.VEC(R0).R1 

BNE II 

JM> SAMVEC 
II: AOO 4C.SIZE.R5 

BR INITS 



(GET ADDRESS Cf CONTROLLER TABLES 
(CHECK IF ANT NORE TABLES 
(BUILD NEW TABLE IF FQUM) ZERO MORD 
(CHECK IF SAME UNIBUS ADDRESS 



tOCCK TABLE IF ALREADY EXISTS 

(GET VECTOR FROM EXISTING CONTROLLER TABLE 



iSEE IF DIFFERENT VECTOR 

lERROR. CAN-T NAVE TUO UQA'S tflTH 
(HOVE TO NEXT TABLE 



VECTOR 



JUOCDO POP U UOA ORV TMTP MACRO VOS. 
INITIALIZE SECTION 



1 

5 


021460 


012^03 


000010 


4 


021464 


012704 


AAVA 

005436 


5 


021470 


005714 




6 


0214 72 


001404 




7 


021474 


005724 




8 


021476 


005303 




9 


021500 


001373 




10 


021502 


000401 




11 


021504 


01 1014 




12 


021506 


012701 


AA AA "N^ 


13 


021512 


AAA T V ^ 

004757 




1* 


021516 


A « « A"^ % 

011021 




15 


021520 


010221 




16 


021522 


016004 


CKXXX>4 


17 


021526 


A^\A V AA 




18 


021530 


AA^ • A A 

0O6iO4 




19 


0215S2 


acx aaji 

056004 




20 


021536 


010421 




21 


021540 


016021 


AAAAA^ 


22 


021544 


012721 




23 


021550 


012721 


017156 


24 


021554 


012703 


000020 










26 


021560 


005021 




27 


021562 


005303 




28 


021564 


001375 




29 


021566 


005237 


002160 


50 


02157? 


005011 




51 


021574 


000417 
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iBUILO A CONTROLLER TABLE 



uT AB • 








1 1 ! 










TQT rBA')« 




OFT R5 




RMF 1 1 




RB 5t 




1 f\^T V '^V / f V / 




MOW ^ ^T/F/P PI 




TALL ALOCM 












MOV H0.BRL(R0),R4 




SUAS R4 




ROL R4 




RI^ HQ VECfftO) R4 




NOV R4 f R 1 ) » 




NOV HQ BSTfRO) (Rl)> 




HOV MOX7 fftl)* 




nOV #U0ASRV.(R1 }• 




nov •16. .R3 


INIT7: 


CLP (Rl)» 




0£C R3 




BIC INIT7 




INC CTRLRS 




CLR (R1) 




BR NXTTAB 



R3 IS A COUNTER 
R4 -> IP AOOAESSES 

rOUND AN OPEN ENTR<? 

ir SO, GO TILL ENTRY 

NEXT ENTRt 

SEAACH THROUGH ENTIRE TABlF > 

V NOT. BRANCH 

ELSE. TASLE ^ULL 
I STORE ENTRY INTO TABLE 
iGET WORDS IN CONTROLLER TABl E 
I ALLOCATE SPACE fOR IT 
I STORE UNISUS AOORCSS 
lUNIT NUnKR 
iGET BR LEVEL 
iSUAP TO HIGH BrTE 
iSHirT am. MORE TO LEFT 
I AGO VECTOR AOORCSS 
I TO TABLE 

(PUT (JSR RO.UDASRvl 
I INTO TABLE 

I Clear poinvrs to drive tablf.s, 

I TIMEOUT CfONTER. ^lAGS. RE»f , »#JW£R 



jLOOP TIL A^L CLEARtO 
i COUNT THE CONTROLLER 
I CLEAR TABLE END HARKER 
;NOU GO TO NEXT P TABLE 



AOtOC POP i: UOA Q«v »"MTH MACRO Vc^,<)0 
INITIALIZE SECTION 



4 

6 
/ 
8 
9 



021576 
021602 
021604 
021606 
021612 
021616 
021620 

10 021626 

11 021630 
12 

IS 
14 

15 021634 

16 021636 

17 021642 
18 

W 021644 

20 0216S0 



016004 000004 
000 304 
006104 

056004 000002 
020463 000004 
001004 

026063 000006 000006 
001402 

000137 022026 



005202 

023702 002012 
003261 

012701 000001 
004 737 012522 



I^4••d•y .'4 nay 6% 10:10 Pa«« 123 



I SHOULD BE SAME CONTROLLER. CHEC^- ThA* OTHER PARAMFTERS ha^Ch 



S£Cl 0137 



SAMTAB: HOv H0.BRL(RO).R4 
SUAB R4 
ROL R4 

BIS HO.VEC(R0).R4 
CMP R4.C.VEC(R3) 
BNE II 

CMP M0.BST(R0).C.BSr(R3) 
BEQ NXTTA6 
It: JMP CTASER 

tCCT NEXT P TABLE 



NXTTAB: 



INC R2 

CMP LIUNIT.R2 
BGT INIT4 

MOV •l.Rl 
CALL ALOCM 



iGET BR LfViL FROM P TABl E 
iSWAP TO HIGH B'Tt 
iSMirT ONE MORE TO LEFT 
|A00 VECTOR ADDRESS 
{COMPARE WITH CONTROL! FR TAAlE 

I COMPARE BURST RATES 

iFATAl error If NOT SAME 



lINCR£ME.NT LOGICAL 'JNIT NUMBER 
iCHECK IF GOT All TABLES 
I IF NOT, GO BACf FOR NEXT 

(ALLOCATE SPACE FOR ZERO END mORO 
, AFTER CONTROLLER ^ABLES 



JlOEDO pop II UOA DBV »"TR MflC»0 Vv^' 
INITIALIZE SECTION 



.00 lucsday .^4 May 9< 10:10 P 



I 

2 

5 021654 

4 021656 
021656 
021660 

5 021662 
021662 

6 

T 

6 

9 021664 

10 021670 

11 021672 

12 021674 
15 021700 



005002 

010200 
104442 

105040 



015705 002156 

021015 

001403 

062703 000054 
000775 



iNOM B(UL.O DRiVt TABLES 

CLR R2 
INIT8. GPHARO R2.R0 



BNCOMPLETE INIT14 



{FIND CONTROLLER TABLE 

MOV CTABS.RS 
INITIO: CMP (R0).(R5) 
BEQ INITll 
ADD •C.SIZE.R5 
BR INITIO 



ILKICAL UNIT HUmir; IN t>? 
iCCT POINTER TO A PTA8LE 

»10¥ R2,R0 

VRAP CICP»«>0 
(ir NOT AVAIlASLF, CO T NExT 

BCC INI T 14 



iG£T AOORCSS OF CONTROLLER TABLt'^ 
lC»«CK IF SAME UNIBUS AOORCSS 
iBAAMCm if TAM.C FOUND 
:nOVE TO NEXT TABLE 



/UOEDO POP n UOA OAv THTR MACRO VoS.OO Tuc«da> 
INITIALIZE SECTION 



Jii 
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SCO 01 v« 



1 

s 

4 

5 
6 

r 



021702 
021706 



012/01 
00473/ 



20 
21 



000015 
012522 



S 

9 021712 010557 00S244 
10 

11 021716 062705 000020 

12 021722 012704 000010 
15 021726 005713 

14 021730 001411 

15 021732 026035 000010 

16 021736 001002 

17 021740 000137 022042 
16 021744 005304 

19 021746 001367 

021750 000137 022060 

021754 010115 

22 021756 016021 OOOOlO 

23 021762 010221 



iBUlLO DRIVE TABLE 



INITll: MOV #0. SIZE/2. Rl 

CALL ALOCM 
J RO POINTS TO P-TAB" E 

; Rl POINTS TO DRIVE TABLE 

I R5 POINTS TO CONTROLl ER TAB( F 

: R2 IS UNIT NUMBER 

MOV R3.TEMP 



iGET "ilZE Of DRIVE TABLE 

jAUOCATE SPACE 'ROM ^RtE MfMOft' 



ADO 
MOV 

INIT12: TST 
BEQ 
CMP 
BNE 
JMP 

It: DEC 
BNE 
JMP 

INITlSi MOV 
MOV 
MOV 



•C.DR0.R3 
•e. .R4 

(R3) 
INIT13 

H0.L0RCR0).9(R5)< 
It 

rt.DRER 
R4 

INI712 
TOOMER 
R1.(R3) 

MO.LOR(RO).(R1). 
R2.CR1 )• 



tSAvE CONTROLLitP TABLE ADORES^ 
ilN CASE AN ERROR IS DETECTED 
iBUlLO POINTER TO C.DR ENTRr IN CONTROLLER TASlE 
(GET MAX COUNT OF DRIVES ON ONE CONTROLLER 
{CHECK IF ENTRY CONTAINS POINTER TQ DRIVE TA«LE 

I CHECK DRIVE Nur«£R IN DRIVE TABLE 

ilf SAME, TWO P TABLES RGIMT TO SATC DRIVE 
(COUNT DRIVES 

(IF EIGHT DRIVE TABLES EXIST. 
( THEN REPORT ERROR 
(LOAD DRIVE TABLE POINTER 
(LOAD DRIVE NUMBER 
(LOAD UNIT NUHBER 



i'UOEOO POP 11 UOA DRV »M1R MACRO VOS.OO (vjesday 
tNITIALiZe SECTION 



\' 1 . 

?4 May 10:10 Pag* l?c> 



5 021764 

4 021766 

5 021772 
6 



9 0217 74 
10 02200? 
11 

12 022010 
022010 
022014 
15 022016 
14 022022 
022022 
022024 



005202 
025702 
00S5S1 



013757 
013757 



012700 
104441 
004757 

104432 

000066 



002012 



002146 
002150 



000000 
01S022 



002152 
002154 



iGO TO NEXT DRIVE TABLF 

INI T 14: INC R2 

CMP LIUNrT,R2 
BGT INIT6 



I INCREMENT LOGICAL (JNIT NiJMBfP 

I CHECK V GOT ALL TABLfS 
ll» NOT, GFT NEXT TABLF 



I SAVE CURRENT PARAMETERS 10 TREE MEMORY 



MOV rrPEE.fMEM 
MOV fSIZE.FMEMS 



INIT15 
INITXX: SETPRI •PRIOO 



iSAVE START ADDRESS 
I SAVE SIZE 



CALL CLOSEr 
EXIT INIT 



I SET RU»#«ING PRIORITr TO ZERO 

MOV 
TRAP 

(MAKE SURE DATA riLE IS CLOSED 

TRAP 
.WORD 



•PRIOO, RO 
C»SPRI 



C»EXIT 

l:oo35 



StQ 0140 



/U0£00 POP 11 UOA ORV »MTR HAC»»0 
INITIALIZE bECTICM 



I 

: 0220^6 
^ 022050 
022050 
022C32 
022054 
022056 
4 022040 
022040 

5 
6 

' 022042 
4 022O46 
022046 
022050 
022052 
022054 
9 022056 
022056 

10 
II 
12 

15 022060 

14 022064 
022^ 
022066 
022070 
022072 

15 022074 
022074 

16 
17 
16 

19 022076 

20 022100 
022100 
022102 
022104 
022106 

21 022110 
022110 

22 

25 022112 
022112 
022112 



OlOSO'- 

104454 

000001 
000000 
011604 

104444 



013705 005244 

104454 

000002 
000000 
011622 

104444 



013705 005244 

104454 

000003 
000000 
011640 

104444 



010305 

104454 

000010 
011670 
000000 

104444 



104411 
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lOirFERENT VECTORS. BR LEVEl S OR BURST RATES TOR ONE CONTROLLER 

CTABER: MOV R3,R5 (GET CONTROI LFR M>ORCS':> 
ERRbF 1..ERR001 



SCO 0141 



OOCLN 



:TWO P TABLES FOR SAME DRIVE 

MLORER: MOV TEMP,R5 iGET CONTROLLER ADDRESS 

ERRSr 2..ERR002 



OOCLN 

sMORE THAN EIGHT DRIVES SELECTED ON ONE CONTROLLER 

TOOMER: MOV TEMP.R5 iGET CONTROLLER ADDRESS 

ERRSr 3..ERfl003 



DOCLN 



TRAP 
.UORO 
.UORD 
.UORO 

TRAP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



TRAP 
.UORO 
.UORO 
.yORO 

TRAP 



tTUO UOA'S (JSE THE SAMt VECTOR 

SAHVEC: MOV fl5.R5 

ERRSF 8.ERR008 



OOCLN 
ENDINIT 



iGET CONTROLLER ADDRESS 



L 10055: 



TRAP 
.UORD 
.UORD 
.UORO 

TRAP 



TRAP 



1 

0 

CRROOl 
CfDCLN 



C»ERSr 

2 

0 

CRR002 
CtOCLN 



C»ERSf^ 

3 

0 

ERR003 
CtDCtN 



C»ERSF 
8 

ERROOO 
0 

C»DCLN 



C»INIT 



'■h . 

aSoORO^^SECTiS* ^^^■''^ 'itO 01*2 

1 .SBTTL AUTOOROP SECTION 

2 

' ... 

4 t TMI5 CODE IS EXECUTED IMMEDIATELT ArTER THE INITIALIZE COOt If 

^ s THE •AOR- FLAG WAS SET. THE "JNITCS) UNDER TEST ARE CMfCKCD TO 

^ ; SEE If TMET UILL RESPOND. THOSE THAT DON'T ARt IMMEOIATtL* 

' ; DROPPED TROM TESTING. 

9 : 
9 

10 022114 BGNAUTO 

02211* L»AUTO;: 

12 022114 ENDAUTO 

022114 L 10056 • 

022114 104461 Li^J»y^. ^^^^^ 



Nil 

AOEDO POP 11 UDA DRV fflTR MACPO VO^.UO Tuesday .?4 May 8S 10:10 P««« 129 OrO 0143 

D.EANUP COOING SECTION 

1 .SBTTL CLEANUP COOING SECTION 

2 

1 ;•♦ 

4 I THE CLEANUP COOING SECTION CONTAINS THE COOING THAT IS PEfirORnEO 

5 , AFTER THE HARDWARE TESTS HAVE BEEN PERTORHED. 

6 : 

T 

S 022116 BCNCLN 

022116 LKlEAN:: 

10 022116 0047S7 013022 CALL CLOSEF jCLOSE DATA FILE 

11 022122 004737 012564 CALL RESET {RESET ALL JQAS 
12 

13 022126 ENOCLN 

022126 L 10057: 

022126 104412 TRAP CfCLEAN 

14 

IS 022130 FNDHOD 



/UOfCV POP li UOA 0*»V rMTR HACRO V0*».00 
TFST i: OK.P PROGRAM DRIVCR 



1 






4 


022150 




S 


022150 






022150 




6 


022150 






022150 


004157 




022154 


004552 




022156 


0«X)000 




022140 






022140 


104450 


s 


022142 






022142 


105020 




022144 


005057 


10 


022150 






022150 


104445 




022152 


000404 




022154 


005244 




022156 


000150 




022160 


005622 




022162 


000001 




022164 




a 


022164 


005757 


12 


022170 


001417 


15 


022 I 7r 


005 V5 7 


14 


022 17o 


001002 


15 


022200 


004757 


16 






17 


022204 


052757 


16 


022212 


001164 


19 


022214 






022214 


104450 


20 


022216 






C22216 


103406 




022220 






0r2220 


104454 




022222 


000012 




02222* 


000000 




022226 


011720 




022P50 






0?2i50 


104452 




022252 


000562 


21 


022254 


052757 


2* 


022242 


001455 


?5 


022244 


025727 


2t 


022252 


001406 


27 


022254 






022254 


104454 




022256 


000011 




022260 


000000 




022262 


011706 


26 


022264 






022264 


104452 




022266 


000526 


2^ 






50 


022270 





ru*«4ay .>4 Hay lOtlO 1 5o 



,SBTTL 



016246 



005244 



005244 

005506 
020* M 

000005 005206 



TlMQOt: 



TEST 1: DUH PROGRAM DRiVtR 
BGNMOO 
BGNTST 
PNTX UNSTRT 



Til 



MANUAL 

BNCOHPLETE TinoOE 
CLR TEMP 

CMANIL UNOUES.TLMP.l.TES 



000010 005206 
002012 000001 



TST TEMP 
BEQ TIQUIT 
TST OATEG 
BNE TIMOOE 
CALL DATE 

B:T ♦SO.rMT.MOOE 
BNE TIFMT 
MANUAL 

BCQMPLETE TIGO 
ERRSr l0..fR»0l0 



TIOUIT: FXIT TST 

TIGO; BIT #S0.STR.M00f 
BEQ TlCNS 
CMP HlJNIT.tl 
BEO TIRST 
ERRSr 9..ERR009 



EXIT TST 



TIRST s PNTF fiLNAM 



iPRINT WARNING MESSAGE 

JSR RI.LPNTX 
.MORO iMSTRT 

.moro pnt.ct 

i'jEE if manual INTFRt/ENTION ALLOUCO 

TRAP C (MAN! 

ll» NOT. JUST RUN THE PRQGRMM 

8CC T IMOOE 

{CLEAR WORD rUR ANSWER 

I ASK rr ST It I WANT TO RiJN 

TRAP C(GHAN 
BR 100001 
.WORO TEr«> 
.WORD TtCODE 
.iJOAQ WNUUEG 
.WORO 1 

lOOOOt: 

tLOO* AT ANSWER 
(IF NO. QUIT NOW 
I SEE ir ALREAOr ASKEO FQR OATE 

iIF NOT. GET IT NOW 



TRAP 

8CS 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
.WORD 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
WORD 



CtMANI 

TIGO 

C»ERSF 

10 

0 

ERROlO 

C»EXIT 
L 10040 



CIERSF 

<* 

0 

ERR009 

C»£XIT 
^10040 



AOCCH< (DP 11 UOA ORV THIR HACHO W0*<.00 lu*«4at .^4 Hay 81 lOtlO Paa« 1 1 
'Fs' I: (X»> PR0GR/V1 OAIVER 



SI 



5^ 

35 



41 



022276 
022900 
022500 
022502 
022 SC4 
022506 
022510 
022512 
022514 
022516 
022520 
022520 
022520 
022524 
022526 
022554 
022556 

56 022542 

57 022544 

58 022550 

59 022554 
40 022556 

022560 
022560 
022562 
022564 
022570 
022574 
022576 
*2 022400 
45 022400 

44 022400 
022400 
022402 
022404 
022406 
022410 
022412 
022414 
022416 
022420 

45 022420 

46 022424 

47 022426 
46 022450 

49 022452 

50 0224 54 

51 022440 

52 022442 
55 022446 

54 022450 

55 0224S2 

56 022456 

57 022460 
54 022464 



00415^ 
011522 
000000 

10444 S 

000406 
005252 
000142 
005566 

177777 

000001 
000012 



012700 
104454 
012757 
000515 
015705 
010504 
062704 
012705 
011402 
001476 

011246 
011546 
016246 
004157 
004255 
000006 



104445 

000406 
005244 
000142 
005620 
17777/ 
000001 
000024 

012701 
005000 
105711 
001410 
005200 
121127 
105420 
122127 
101767 
000414 
020027 
105424 
012701 
012700 



016226 



GHANIO » ILNAQ.FNAHE.A. 1.1.10. .NO 



lUT riU MNE 



.yOHD PNT.C 



005252 

177777 002174 

00^156 

000020 
000010 



000002 
016226 



TICNS: 
TlSERl: 



TISER2: 



OPEN •FNAME 



MOV •l.rilOPN iMARK FLAG AS FltE OPEN 
BR TIFHT 
MOV CTABS.R5 
MOV R5.R4 
AOO •C.DR0.R4 
MOV 48.. R5 
MOV (R4).R2 
BEQ TISERN 

PNTF SERNUH.0.UNlT(R2).iR5).(R2) 



100011: 



TRAP 
SA 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.MORO 



MOV 
TRAP 



C«GMAN 
10001 » 
FNAME 
TfCOOE 
FILNAO 
1 

T»L0LIM 
T»HILXM 



fFNAfC.RO 
ClOPCN 



iCET OPIVE TABLE POINTER 



riSERS: 



Assure C.UAOR EQ 0 
ASSUME D.DRV EG 0 
GMANID SERNO.TEMP.A. 1.1.20. .NO iCET SERIAL NUMBER 



MOV CR2). (SP) 
MOV (R5). (SP) 
MOV O.UNIT(R2}. 
JSR Rl.LPNTF 
.yORO SERNUM 
.MORO PNT.CT 



005244 

000060 
000071 

000024 

005244 

005522 



T1SER4: 



T1SER5: 



MOV ♦TEMP.Rl 
CLP RO 
TSTB (Rl) 
BEQ T1SER5 
INC RO 

(Rl).# 0 
BLO T1SER7 
CMPB (Rl)..4'9 
BLOS T1SER4 
BR T1SER7 
CMP R0.*20. 
BLO T1SER8 
MOV tTEMP.Rl 
MOV •HIGHEST.RO 



100021: 



TRAP 
BR 

.UORO 
.yORO 
.UORO 
.UORO 
.UORO 
.WORD 



OGHAN 
10002* 
TEr*» 
T»caoE 

SERNQ 
1 

T»L0LIM 
T»MILIM 



'F 1 : 


OJiP PROGRAM DRIVEN 








0^^470 


105710 




T ISER6 : 


TSTB (hO) 


60 


0224 /2 


001416 






BEO TlScRS 


t: 


022474 


122120 






CMP8 (Rl)».(R0)» 




0224 ?6 


001774 






BCU ■ 1 3CMO 




022500 


103415 






ni n T 1 ccciA 
OLU 1 ibcNO 


*v4 


022V>2 






T 1 CCD f . 






0225C2 


012746 


005322 








022506 


012746 


011415 








022SI2 


012746 


000002 








022516 


010600 










022S20 


104417 










021^2 


062706 


000006 






65 


022526 


000724 






BR 1 l3tH3 


66 


0225 SO 


062702 


000004 


T ISchB: 




6? 


0225 34 


012701 


003244 






6d 


022540 


112122 




1 1 StH9 : 


Mnuo /D1^. ^s^^> 
novo VHIJ»,IH^J« 


69 


022542 


001576 






T 1 CC DO 

bnc. I lacKY 


70 


022544 


00SS05 






DcC R3 


71 


022546 


001402 






DC n T 1 CC DftJ 

Ota T1%RN 


''2 


022550 


005724 






T C T f DA ^ . 

I 5 1 I H4 J • 


'5 


022552 


000700 








74 


022554 


062705 


000054 


1 1 9CKN : 


Ann CT7C o>« 


75 


022560 


005715 








76 


022562 


001267 








77 


022564 


015757 


002156 002162 


T IFMT : 


Mnu /*TADC TCT T AO 


78 


022572 


013701 


002160 




itflu ^ TDl DC D1 


79 


022576 


004737 


012710 




CALL HVWPn 




022602 


001402 








61 


022604 


004757 


013040 




^ Al 1 DC CDM4 

CALL KtbPOn 


8? 


022610 






o* : 


C V T T TCT 




022610 


104432 










022612 


000002 








o 3 


022614 












022614 












022614 


104401 








.j4 


022616 








ENOMOO 



»10V •MXOCST, fSP 

nov •scwix. -rsp) 

»«V #2, (SP) 

SP.RO 
TRAP CtPMTF 
AOO M.SP 



TO DRIVE TABLE 



iC£T FIRST TABLE AODRCSS 

jRUN on PROGRAH ON ALL CONTAOLLERS 

I RUN ALL CONTROLLERS OF ONE TrPE AT ONCE 



TRAP C»EXIT 
.UORO L10040 



L 10040: 

TRAP C«ETST 



/UD£0O POP i\ UOA DRV »MTR MACRO V0%.00 1ci««day 
HARDWARE PARAfCTfR COOING ^ECUOK 



JA May 10:10 Pag* 1^1 



SCO 014 7 



4 

•i 
6 

» 

9 

9 
10 
11 
12 
15 

14 022ti6 

022616 00002 7 
022620 

15 
16 

16 022620 
19 

20 022620 

21 022620 

22 022620 

23 022620 
k* 022620 
25 022620 



.S8TTL MAROuARt PARAMt TER COOING SECTION 
BGNMOO 



, THE HAROUARE PARAMETER COOING SECTION CONTAINS MACROS 

J THAT ARE USED BY THE SUPERVISOR TO BUILO P TABLES. THE 

, riACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

( INTERPRETED Bt THE SUPERVISOR AS DATA STRUCTijRCS. THE 

i MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMTJNICATlCiNS 

J WITH THE OPERATOR. 



BGNhRD 



FORMAT Of HARDWARE P- TABLE IS AS FOLLOWS: 



LiMARO: 



.WORD L 10041 LIHARO/<: 



TABLE 

ITEM HO.UBA 
ITEM MO.VEC 
ITEM HO.BRL 
ITEM H0.8ST 
ITEM HO.lDR 
END 



2 
2 
2 
2 
2 



{START A TEBLE DEFINITION 

I UNIBUS ADDRESS 

I UOA VECTOR 

i BR LEVEL 

: BURST RATE 

I DRIVE NUr«ER 



JO^DC P0(> a OOA ORv rHTR HACRO VOS.OO 
AROUARE. PARAMETER COOING SECTION 



1 0221>2C 

022624 
022626 
^ 0226S0 
0226SC 
0226S2 
0226S4 
0226S6 

3 022640 
022640 
022642 
022644 
022646 
022650 

4 0226S2 
0226S2 
022654 
022656 
022660 
022662 

5 022664 
022664 
022666 
022670 
022672 
022674 

6 022676 

022676 



000051 
022676 
160000 
177774 

OOIOSI 
022724 
000004 
000774 

002052 
022 75S 
177777 
000004 
000007 

005052 
022744 

177777 
000000 
000077 

004052 
022766 
177777 
000000 
000577 



I K 

Tuesday 24 May 65 lOilO Paga M<> 

CPfiMA H.OBA.HO.UBA.0. 160000. 1 7;774.rES 

GPRHA H. VEC.HO.VEC.0.4, 7/4.Tf S 

GPRHO H.BRL.HO.BRL .0, 1.4..7..TES 



I BUS ADDRESS 
WORD 
.MORO 
.MONO 
.UORO 



i BR LEVEL 



i B*JRST RATE 



.WORD 
.UORO 
.MORO 

wono 

.WORD 
.MORC 
.MORO 
.mORD 
.MORO 



bPRMO H.BSr.MO.BST.D. 1.0.,6S..YES 

,M0RO 
.MORO 
.MCRD 
.MORO 
.MORD 

GPRMD H. LOR. HO. LOR. D. I .0, .255. , *ES t DRIVE SELECT NUTBER 

.MORO 
.MORO 
.MORO 
.MORO 
.MORO 



ENOHRO 



.EVEN 



L10041: 



8 


022676 


125 


116 


111 


H.UQA: 


.ASCIZ 


NUNIBUS ADDRESS OF UDA 


9 


022724 


126 


105 


105 


M.VEC: 


.ASCIZ 


\VECTOR\ 


10 


02?753 


102 


122 


040 


M.BRt : 


•ASCIZ 


\8R LEVEL \ 


11 


022744 


125 


116 


111 


M.BST: 


.ASCIZ 


\UNI6US BURST RATEv 


12 


022766 


104 


122 


111 


H.LOR: 


.ASCIZ 


vORIVE Nl»fi£Rv 


1? 












.EVEN 





T»CODt 
M.UBA 
TfLOLiM 
TfHiLiN 

TICODE 
M.VCC 
TILOLIM 
T f MIL IM 

ricooE 

H.BRL 

-I 

TILOLI^* 
TIMILIH 

TICODE 
M.BST 

-1 

T»LOLl« 
T«HlLIf1 

TICODE 
m.lOR 

-1 

TILOLIM 
TIMILIM 



/UOEOO POP II UOA ORV rriTR MACRO VOS.OO l<j««da> :>4 May 10:10 Pag* \l% 
SOTTmARE PAAAMETEft COOING SECTION 

1 .S8TTL SOUUARt PARAMETER COOING 'jtCIION 



.4 • 



4 

6 

* 

10 



11 






12 


0230C4 






025004 


000022 




02S006 




15 






14 






15 






16 


025006 




I • 
16 


025006 




19 




000001 


20 




000002 


21 




000005 


22 




000004 


25 




000010 


24 






25 


023006 





i • 

i 

I 

I 

I 

i 

I 



THE SOFTUARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TQ BUILD P TABtES. TmE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRlXTURE<>. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNSfT 



jFOPHAT Of SOTTUARE P- TABLE IS AS fOLLOWS: 



L»SOfT! 



.WORD L 10042 -L( SOT T/2 



TABLE 

ITEM 50. BIT 2 

SO.fMl • BITO 
S0.rM2 - BITl 

SO.rMT . S0.fMl.S0.f'M2 
SO.CNS ■ BIT2 
SO.STR ■ BITS 

END 



iSTART A TABLE DEFINITION 

I YES/NO ANSWERS 
( REFORMAT rfOOE 
i (AGAIN) 

I RECONSTRUCT MODE 
i RESTORE MODE 



/UOfOO POP II \JD^ D«V »MIP HACBO V*.'.00 lc«««d«v 
SOTTgiWE PABAMETER COOH* SECTION 



1 


025006 












025006 


000130 










025010 


0.?3225 










025012 


000001 








? 


C25C14 












025014 


017024 








5 


02501€ 












025016 


000150 










025020 


025052 










025022 


000002 








4 


025024 












025024 


015024 








5 


025026 












025026 


000150 










025050 


025502 










025052 


000004 








6 


025054 












025054 


007024 








■• 


025056 












025056 


000150 










025040 


025545 










025042 


000010 








8 


025044 












025044 


005024 








9 


025046 












025046 


000003 










0250S0 


025466 








10 


025O52 








SUENO: 




025052 










11 












12 


025052 


015 


012 




s.*«r: 


13 


025054 


116 


117 


124 




14 


025156 


015 


012 






15 


025160 


111 


116 


106 




16 


025211 


015 


012 






17 


025215 


101 


107 


101 




16 


^25225 


122 


105 


106 


S.FMT: 


19 


025S02 


122 


105 


105 


S.CHS: 


20 


025545 


104 


117 


040 


S.RST: 


21 


025421 


015 


012 






22 


025425 


040 


10^ 


117 




2S 


025466 


151 


117 


125 


S.HOFi 


24 


02SS36 


122 


105 


125 




25 


025652 


000 








26 












27 












29 












29 


000000 











I-' i . ' 

.'4 nay 9^ lOilO Pao* 134 

GPBHL S.fMT.SO.BIT.SO.rm.tfS iUCFOBHAT? 



xrERT SUENO 

GPRML G.NRF.SO.BIT.SO.rna.rES 
XFERT SUENO 

GPPHL S.CNS.SO.BIT.SO.CNS.TtS 
xrERT SUENO 

GPmX. S.RST.SO.BIT.SO.STfi.TES 



i AGAIN REfORMAT? 



iRECONSTRUCT 



•RESTORE? 



xrERT SUENO 
OZSPLAV S.NOF 

EWSFT 



lUARNINu 



UORO 


TiCOO^ 


.WORD 




.WORD 


sc.rri 


.WORD 


T«COO€ 


.UOPD 


TtCOOE 


.WORD 


s.»#»r 


.WORO 


SO.FMi 


.i40RO 


TfCOOE 


.WORD 


TfCODE 


.WORD 


S.CHC 


.UORO 


SO.CNS 


.UORO 


^tCOOE 


.UORO 


TiCllOE 


.WORD 


S.RST 


.moro 


30.STP 


.UORO 


T»COOE 


.MORO 


TICOOE 


.iJORD 


S.HOf 


.EVEN 





L 10042: 

.BTTE 15.12 

.ASCII\NOT USING EXISTING IITORtlATION UiLL OESTROr THE FACTORr BAO SECTORn 
.BYTE 15.12 

.ASCII\Z»rORnATION ON TMC DISKS. \ 
.BYTE 15.12 
.ASCII\AGAIN • \ 

.ASCIZMtEFORHAI USING EXISTING BAO SECTOR UTORnATIONV 
.ASCZZVRECONSTRUCT BAO SECTOR I»rORnATION\ 
.ASCIIXOO YOU HAVE A FILE ON THE SYSTEM LOAD DEVICES 
.BYTE 15.12 

.ASCIZV CONTAINING BAD SECTOR IKFORHATZONV 
.ASCZ2\Y0U CAIMOT PROCEED UITHOUT SUCH A FZLE.\ 

.ASCI7\RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT OlSi'.v 

.BYTE 0 

.EVEN 

.DSABL AMA 
.PSeCT END 



/COCDO POP U UDA ORV rMTR MACRO VOS.OO iu*ada> J4 Haw 64 lOilO Pao* IV 
^'ATCh area 

1 .SBTTL PATCH AREA 

5 OOOOOC iPATCH: ; 

4 000050 .REPT 40. 

5 .UORO 0 

6 .EM)R 

T 

9 0001^0 LASTAO 

0001?0 000142 
000122 000007 

000124 LtLAST.-! 

9 

IC 000124 EMOnOO 



.Even 

.UOND TirRCE 

.MONO T»sm 



/UOtDO POP U UOA oa^ » 1TR MAC»0 V«j 
PATCH AREA 



1 


000124 




c 


















4 


















7 


noni XA 








000077 


9 


000140 


000000 


10 






11 


000142 






000142 




12 






15 


000142 





14 
15 
16 
17 
IS 
19 
20 

21 000001 
trrc»-s detected: 0 

••• AsveMtoler statistics 



.00 iKjesdav ^ay 10:10 Page iSo 



BGNSETUP 1 
BGNPTAB 



.WORD 1721!>0 

.UORO 154 

.WORD 5. 

.UORO 65. 

.WORD 0. 

EN0PTA8 



FNOSETUP 



.END 



Morfa file reads: 276 
Uoru file writes: 26« 

S'ze of •Mrk file: 28956 Uorde ( 114 PagM) 
Size of core pool: 17152 Words ( 67 Paoes) 
Operat>r>g «yst««: R^-H (Under RSTS/E) 

Elapsed f.mm: 00:02:44.47 

ZUDEOO . 08 J . ZUDEOO/C ' r 20 . 0 1 S VC 54R . rt.B /P : 1 . ZVJOEDO . OOC , ZUDEDO 



.MOW) 0 
.U(MO L10045 

L10045: 

I CNZBUS AOOReSS 

I VECTOR AOORESS 

I BR LEVEL 

I UNXBUS BURST RATE 

t LXICAL DRXVL NUr«ER 



L 10045: 



i 



/UOFDO POP U UDA ORV » MTR HACRO V0*i.00 Tvi«*day i'* Hay 9^ 10:10 PmQ» 



123-20 125 4 
67-5 60 5 86 5 



tPATCH 


155 5# 








AOR 


54-10# 








ALOCH 


60-16* 


61 14 


122 


■15 


ASSCMB 


30-8 


30-6 






BAS 


54- 14* 


87-5 


67 


5 


BASt2 


54 12* 


88-5 






BASL5 


54 13* 








BAS1.N 


54-16* 


87-5 


86 


b 


BASNO 


54-11* 


87-5 


68- 


5 


BZTO 


34-10* 


133-19 






BXTOO 


34-10 


34-10* 






BZTOl 


54-10 


54-10* 






BIT02 


34-10 


54-10* 






BZTOS 


34-10 


54 10* 






BZT04 


34-10 


54-10* 






BXT05 


34-10 


54-10* 






Bzro6 


34 10 


54-10* 






BZT07 


34-10 


54-10* 






BXTOe 


34-10 


34-10* 






BXT09 


34-10 


54-10* 






BXTl 


54-10* 


45-23 


133 


■20 


6XT10 


34-10* 








BXTll 


54-10* 








BZT12 


34-10* 








BZT15 


34-10* 








BXT14 


34-10* 








BZT15 


34-10* 


45-15 


46 


•12 


BXT2 


34-10* 


45-24 


133- 


-22 


BXTS 


34-10* 


45-25 


133 


•23 


BXT4 


34-10* 


45-27 






BXT5 


54-10* 


45-30 






BIT6 


34-10* 


45-31 






BIT7 


54-10* 


45-33 






BITS 


34-10* 








Bxr9 


34-10* 








BLOCO 


101-22 


101-24* 






BLOCl 


101-26* 


101 -28 






BLOCf«} 


65-49 


66-14 


66 


44 


BOE 


34-10* 








C«AU 


50-S* 








C»AUTC 


30-8* 


126 - 12 






ClBftK 


30-8* 


62-12 


65 


-6 


ctBsec 


30-8* 








CtBSUB 


30-8* 








CICEFG 


30-8* 








CIClCK 


30-8* 


120-41 


120-43 


OCLEA 


30-8* 


129-13 






CICLOS 


30-8* 


64-12 


77 


-19 


CICLPl 


30-8* 








CICVEC 


30-8* 


62 22 


111 


-30 


CIDCLN 


30-8* 


59-8 


62 


•30 


CtOGOU 


30-8* 








ClORPT 


30-6* 








CIDU 


30-8* 








CtEOZT 


30-8* 


30 54 






CtEROF 


30-6* 


62 26 


65 


-24 



63-27 66-20 74-28 79-15 



99-2 101-15* 
104-21 111 12 114-27 



120 18 127 4 127-9 127-15 



66-36 67 21 66-6 72-22 



1 



93-29 



127-21 



74 52 100 3 104-29 105-5 109-35 109 54 110-11 



1 1/ 

/U0«^00 POP II UOA Wv f^MTR MACRO VOS.OO Tvw«4a» -'4 H«y iCslO Pao* 5 .? SEO 015« 

Cro«» p«f«r«nc« tabU (CRt^ VOi.OO) 





111-55 


115 


44 


114' 


■56 


115 


5 






CtEP»« 


50-8* 


















C»ER«0 


50-8* 


















C»ERSf 


50-8* 


59 


- 7 


127 


'5 


127 


6 


127- 


14 


C »ERSO 


50-«# 


















OESCA 


50 -8« 


















CtESEG 


50-8* 


















CtESOB 


50-8# 


















C»ETST 


50-8# 


150 


65 














CIEXIT 


50 8* 


126 


14 


150 


22 


150- 


'28 


150- 


82 


CtGETB 


50-8« 


77 


24 














OGETu 


50 -8# 




















50-8# 


118 


-1 


150- 


10 


150 


51 


150- 


'44 




50 -8# 


121 


15 


124 


4 










c»gplo 


50-8# 


















cigpr: 


50 -8# 


















CtlNIT 


50 8# 


127 


-25 














C»INLP 


50-8# 


















CinANI 


50-8# 


150 


-7 


150' 


■19 










C»MEM 


50-8# 


120 


•52 














C«MSG 


50 -8# 


57 


-16 


57' 


■20 


57- 


•24 


57 


28 




57-84 


57 


•88 


57' 


■92 


57 


•97 


57 ' 


■ 101 


C«0PEN 


50 -8# 


77 


-20 


150 


■52 










CiPNTB 


50-8« 


95 


14 














CiPNTF 


50 -Bt 


95 


-12 


1^0- 


■64 










CiPNTS 


50 8# 


95 


-18 














CiPNTX 


50 8« 


95 


16 














CtOIO 


50-8* 


















c»Poeu 


50-8* 


















CtPEFG 


50 8# 


120 


-10 


120 


-12 


120 


14 


120 


16 


CIRCSE 


50 -8# 


50 


-84 














C»B€VI 


50 -Bt 


50 


54 
















30-8# 


















C IRPT 


50 -8# 


















Ctscrc 


50-8# 


















CtSPRI 


50 -8# 


126 


-12 














OSVEC 


50 8« 


62 


-11 


98 


20 


111 


-27 


120 


-52 


CtTPWI 


50 -8# 


















COST 


45 - 19# 


110 


-17 


125 


-9 










C - WO 


45 55# 


66 


-15 


79 


12 


125 


-11 


150 


-57 


com 


45-56# 




















45-57# 


















Z .OAS 


45-58# 


















C .0R4 


45-59# 


















C .0R% 


45-40# 


















C .ORfc 


45-4l# 


















C .OR 


45-42# 


















C LG 


45-?2# 


65 


-25« 


65 


-10 


65 


-15 


65 


- 15 




68-4''« 


68 


50* 


68 


-62* 


€8 


•65 


68 


69» 


(. . JMO 


43 -21# 


















C.JSR 


45-204 


98 


19 














C.PRI 


45-464 


68 


-65 


68 


67 


68 


-72* 


68 


-75* 


C.R£r 


45-47* 


67 


-19 


102 


-16« 


102 


-17 






C.RING 


45-544 


57 


-157 


61 


15* 


65 


-9 


68 


29 


C.SIZE 


45-494 


65 


-52 


66 


-5 


121 


52 


122 


-12 


C.TO 


45-454 


65 


-56 


68 


-55 


104 


-14 


104 


-27 



57-52 57-56 57-40 57 44 5748 57-57 57-62 57 76 57-80 
57-105 57-109 57-115 57 117 57-121 



65-58 65-45 65-47« 66-12* 67-6 67-26 68 55» 68 59» 68-40 
68-70 99-12* 99-15* 102-21* 104-17 105-1* 



101-16 102-15 109 20 110-5 110-22 111 20 
124-12 150-74 



114-22 114 55 



/UD£00 PUP U UOA ORV fMTR MACRO VQ5.00 lucsday ?A May AS 10:10 Pao« S S ',£0 OM 

C^09-3 r«f crane* tabla (CREF VOS.OO) 





-AAA 




T04 


.P4 


114. 30 










^S ?Q 


oo 




<M. 14* 

yw 


^A . 
#w 


. IS* 
" x^* 




lev 


AA . 1 #\ 


111 




1 ?1 .?4 


X 9w 


.4P 




AS 1 %A 


fix 94 


wJ 


.P5 


ftS. IP 
w^ xc 












til 

k k L 


.14 


1?1 -P7 


IPS 

Xc J 




^ rt^Fi"a 




















AA -S* 












PAl Qfk 
















CALR7 


114-9 


<M 4A 












CALR8 


AA ■ 1 Q 


91 4t> 














A4 - S 


84 4 


ft4 

w^ 


S 


86 AA 






Cr . 5 76 


4 1 . «c J 

~ X *• 














'. ATN 


41 - 
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CF .OTH 


41 -S6a 
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41 
















41 37# 














ClOSEF 


64 - 10# 


126-13 


129 


• 10 








clrbfl 


103 -22# 


103-24 














6A> 16 


6A-46 

WW 












CON. A 
















CON. Ai 




ft?- 15 












con! A2 


RP- 1 7 


ft?- 144 












con!o 




85-21 












cqn'h 
















CON.N 
















con!ni 




AY- IP 

O-J xc 












CONG 




AS *P1 












con.qu 


82-3« 


82-7 


85 


21 








con. ax 


9C .J 














con!r 


83 17* 


85-21 












CON.Rl 


83-19 














con! s 




AS - PI 












con! si 




AX. \P 












CPNT 


78- 18 

117-32 


7 A- PI 
11 7 - !5S 

XA ' -^J 


80 

WW 


21 


AO-PS 


WC 


-6 

w 


CPNTx 


95-13 


95-15 


OS 


-17 

X • 


95-194 






CR 


34 . i,2# 


7A-P1 

■ O C X 


AO 

wV 


-PI 

C X 




83 

Wa^ 


-10 
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CT.AVL 


45 . i.5# 


63-27 












CT .BRL 


45- 














CT.CMO 


45-24# 


65-15 


99 


- IP 

xc 


IOP.91 
X vc -ex 






CT .MSG 


45-25* 


X ^ 






oo oc 


104 


-17 

X ■ 


CT.REQ 


45-27# 


67-6 


67 




68-35 


68 

WW 


-40 


CT.RN 


45-23* 


65-10 


99 


-13 








CT .STA 


45-30* 


65-38 


65 

w J 


-46 

^w 


w » 


6A 

WW 


*6P 

WC 


CT , TM1 


45-Sl* 


65-42 


65 


-43 


68-39 


68 

WW 


-70 
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45.33# 


68-39 


68 


63 


68-69 

vw w y 






CT.ONT 


45 - 14# 














CT.WCC 


4S-17* 


96-17 


111 


-15 


121 -28 

A &W 








125-11 


127 2* 












CTABS 


SO- 12* 


121 3* 


121 


-4* 


121-20 


124 


9 


CTRLRS 


50-13* 


121 -S* 


122 


-29» 


130-78 






O.ORV 


46-9* 


73-36 


60 


-17 


130-43 






O.SERN 


46-15* 


72-17 


130 


-66 








D.SZZC 


46 - IS* 


125-3 












O.UNIT 


46 10* 


66 19 


66 


-25* 


79-14 


80 


-15 



62-15 63-10 85-50 67-7 86-7 94 13 94-22 95-5* 117 2"' 
677 66-7 95-6 
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66-4? 66-50 99-12 



130 35 130-77 
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150-lS 

118-2 lie-44 
11S-3S 150 IS 
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-8 


118 


-15# 


DATE 


118 


1* 


118 


-52 


date: 


51 


-2» 


118 


-1 


OATEO 


51 


4* 


72 


-26 


DATEQ 


55 


-5# 


118 


-1 


OATFX 


56 


12* 


118 


-51 


DAY 


118 


5# 






DATl 


118 


-46* 


118 


-57 


0AT2 


118 


-47 


118 


-56« 


DAYS 


51 


19# 


118 


-42 


OERP 


118 


-4 


118 


-6 


or. ACT 


44 


-2l« 


68 


-60 


OF.LCL 


44 


24 # 






.NES 


44 


-22» 






OT.SA 


44 


-26# 








52 


-10# 






OIAG 


58 


55* 


101 


23 


oiAcnc 


50 


-8 


50 


-8 


DIVIDE 


75 


-58 


95 


•39 


O'^'RST 


44 


-47# 






OmAIN 


44 


-46« 






OMOVRL 


44 


-44* 






0»»«OG 


50 


-16# 


98 


-15 


OMTMO 


44 


•454 


98 


-14 


DflTRLN 


44 


-45# 






OQCONT 


75 


-28 


75 


-6l# 


0<M0 


75 


-54 


75 


-62* 




75 


-26 


75 


-55# 


OORSTR 


75 


-27 


73 


-59* 


OOUEJP 


75 


-21 


75 


-22* 


OOUEST 


69 


• 4 


75 


-16# 


DQL€SZ 


75 


-18 


75 


-29# 


DOUEX 


75 


-19 


75 


-22 


OQUNIT 


75 


-25 


75 


-55* 


OQlMLl 


75 


-58# 


75 


-42 


0QUNL2 


75 


-44* 


73 


-48 


DOTES 


75 


-55# 


75 


-60 


DSPSIZ 


69 


-9# 






OT.AVL 


46 


-12# 


66 


-20 


OT .VJNT 


46 








DiJ.OFL 


44 


-55« 






OU.FTU 


44 


-56# 








44 


-Me 






OU.OUE 


44 


-S2« 






OU.SPC 


44 


-57# 


68 


•6 


OU.TER 


44 


-35# 






OU.TYP 


44 


-39# 


66 


-4 


DUP 


58 


-i4# 


101 


-20 


EIEM) 


50 


8# 






f A 1 AAA 


50 


-8# 


50 


-34 


Er.BBR 


41 


-27# 






Er.BBU 


41 


-28« 






Er.CON 


54 


-10# 


120 


-14 


Er.LOG 


41 


-29# 






EF .NEW 


54 


-10# 






EF.PWR 


54 


-10* 


120 


16 



118-10 118-12 118 14 118-51* 118-59 118- 



94-7 97-l6# 117-19 117-21 117-23 



99-3 99-4 «»9-5 99-6 



75-29 

75-24 75-25 75.50# 75-57 75-64 
66-25 79-15 



68-19 



SEO 0156 



118-64 118-64 116 A6 118 90 
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EF .RES 


54 104 


120 U' 










Er.SEx 


41 -30« 












E^.ST* 


S4-104 


120-10 










EMKWl 


57 144 


127-5 










ERROO? 


S7-ie4 


127-6 










ERROOS 


57-224 


127-14 










EWHXM 


S7M4 


59-7 










ERROOS 


57-S04 


127-20 










ERR009 


57 M4 


130-27 










ERROlO 


57-S8# 


130-21 










ERR014 


57-424 


109-54 










ERR020 


57 4^4 


62-26 


111 


-53 






ERR021 


57-504 


115-5 










ERR022 


57-594 


114-56 










ERROR'S 


57-64* 


110-11 










ERR024 


57 784 


109 55 










ERR025 


57 824 


115-44 










ERR050 


57-864 


65-24 










ERR051 


57-904 


66-56 










ERR052 


57-944 


66-8 










ERR0S5 


57-994 


67-21 










ERR054 


57-1054 


100-5 










ERR036 


57-1074 


104-29 










ERR0S7 


57-1114 


105-5 










ERR 100 


57-1154 


72-22 










ERRlOl 


57 1194 


74-52 










ERR25A 


57-674 


57-74 










ERR2S8 


57 68 


57-724 










ERft25C 


57 71 


57-754 










ERRC 


81-56 


81 45 


65 


-94 






ERRC^^ 


50 574 


95-5* 


95 


12 


95 


14 


ERRO 


81-45 


85-214 










ERRnEl 


54 84 


81 41 


65 


25 


86 


-4 


ERRNL 


54 44 


95-10 










EBRONE 


54-54 


95 7 










ERRRSZ 


65 18 


84-114 










ERRRTB 


85-21 


84-54 


64 


11 






ERWTPM 


69-7 


76 144 










EVL 


54-104 












«"»AiJ 


50-84 














50-84 


•..?8 10 


128 


-12 








30-84 


50-26 


55 


16 


54 


-5 




57 59 


5/-64 


57 


•78 


57 


62 




107-18 


116-5 


118 


104 


119 


5 




150-82 


150-65 


130 


-84 


151 


-5 


r:CLE* 


50-64 


129-8 


129 


■15 








50 84 














50 6 


50-6 


50 


8 


50 


-6 




50 6 


SO 8 


50 


-64 


50 


-26 




57-48 


57 57 


57 


62 


57 


-76 




57-121 


106 14 


107 


•«.' . 


116 


-9 




150-5 


150-22 


150 


28 


150 


82 




156 15 














50-84 


151 14 


152 


6 


154 






50-64 


52-10 


52 


-17 






r»iNiT 


50 64 


120 8 


127 


<r5 







95-16 95 16 



57-14 57-16 57-22 57 26 57-50 57 54 57 38 57 42 57-46 57-50 

57-66 57-90 57-94 57-99 57-105 57-107 57-111 57-115 57-119 106-10 

119-10 120-6 126 14 126-10 129-8 129-15 150-3 130-5 130-22 130 26 

131-14 155-12 134-9 154 9 135-10 136-1 136-5 136 3 136-11 136-13 

30-8 50-6 30-6 50-6 50-8 50-8 30-8 50 8 30-8 50-8 

55 16 54-3 57-16 57-20 57-24 57-28 57-52 57 56 57-40 57 44 

57-80 57-84 57-66 57-92 57-97 57-101 57-105 57 109 57-115 57 U' 

116 104 119 5 126-14 127-25 126-12 129-15 129-15 130 5 150-5 150 5 

150 65 150-85 lSO-84 131 3 152-6 134-10 155-10 156 I IS6-5 136 11 

154 4 154-6 154-8 
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*^ tJMP 


30 8* 


126 14 


130-22 


150 28 


ISO 82 






»100 


30 0« 


70-26 


53-16 


34 5 


118-104 


119 5 


129 15 


' tisc 


30 8* 


57 - 14 


S7- 16 


57-18 


57 20 


57-22 


57 ^4 




57 40 


57 42 


57-44 


57 -46 


57 -48 


57-50 


57-57 




S'' 04 


57 86 


57 88 


57-90 


57-92 


57-94 


57-97 




«J7 lis 


57 115 


57 117 


57 119 


57 121 






FtPROT 


30-8* 


119 10 


119 16 










F tPkM 


S0-8« 














FtRPT 


SO e« 














FISEG 


30-84 














FISOFT 


SO -84 


133-12 


134-2 


154-4 


154 6 


134-8 


134 10 


FfSftv 


SO -8* 


106-10 


106-14 


107-18 


107-21 


116 5 


116-9 


^•sue 


SO-84 














FISM 


S0-8# 


33 10 


S3 14 










FITEST 


SO-8* 


130-5 


130-83 












SO 24* 


77 23 


77-52 










rcTNun 


SO 2S# 


63-36* 


77-14 


77-21* 


77-28* 








S0-2S* 














FrREE 


S0-8# 


57-65 


60-16 


60-20* 


120-32* 


120-33 


121-3 


^ILMH 


56 15* 


tSO-SO 












riLNAQ 


53 -4* 


130-31 












FXLOPN 


SO-204 


64-10 


64-13* 


130-55* 








rnEH 


S0-10# 


126-9* 














50-114 


126-10* 














59-74 


60-18 












FNArC 


50 S94 


77-20 


130-31 


ISO 32 










50-94 


60-17* 


120-53* 


126-10 








G*CNTO 


30-84 














GIOCLH 


SO -84 














ClOXSP 


30-64 


134-9 












GIEXCP 


30-84 














GtHlLl 


SO-84 














G*lXI 


30-84 














G«NO 


SO-84 


iso-si 


ISO -44 










Gtorrs 


30-84 


118-1 


130-10 


150-51 


150-44 


112-1 


132-2 


GIOTSI 


30-84 


116-1 


130-10 


150-51 


150-44 


152-1 


152-2 


GtPRnA 


30-84 


IS2-1 


1S2-2 










GtPRfV) 


30-84 


118 1 


130-31 


150-44 


152-S 


152-4 


152-5 


GtP«»L 


30-84 


130-10 


134-1 


154-3 


134-5 


134-7 




GtRAOA 


30-84 


118-1 


130-31 


130-44 








GtAAOe 


30-84 














G*RAOO 


30-84 


152-3 


152-4 


152-S 








CIRAOL 


SO 84 


130-10 


154-1 


154-5 


154-5 


134-7 




GtRAOO 


SO 84 


1S2-1 


152-2 










GSxrFR 


30-84 


134-2 


154-4 


154-6 


154-8 






GtrES 


30-84 


118-1 


130-10 


152 1 


152-2 


132-3 


1S2-4 


GETCON 


92-16 


92-18 


92-284 










GETCNT 


82 12 


8S-9 


83-17 


83-29 


92 134 


93-15 




GETCNX 


92-154 


92-27 












GETCXX 


92-29 


92 Sl4 












GTOim. 


79 134 


79 16 












GTORVT 


72-16 


75-16 


74 24 


74 36 


79-114 






H.8RL 


132-3 
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M.BST 


132-4 


132 114 












M.LOR 


152-5 


132 124 












M. JBA 


132-1 


132 84 
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150 5 130 84 151 5 135 10 

57-26 57 28 57-50 57 52 !.7 54 57 56 5/58 
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57 99 57.101 57 105 57 105 57 107 5^ 109 57 111 



126 9 
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i-.vEC li? 2 

HC.BTl 58 24# 

HC.Br2 58 r5# 

HC.BS7 58 IS* 

hC.CCT 58 l»# 

hC.CEV 58 22* 

HC.CMO 58 18# _ . 

HC.CPK 58 25# 58-24 57 125 68 SU 99 S* 99-4« 99 5* 99 6» 101 <?9« 102-17* 105 !«• 105 19* 110 2* 

MC.ESr 58 ll# 

HC.INT 58 15« 

HC.ISZ 5fl-9# 

hC.HCT 58 17# 

HC.^«v sa-20« _ 

HC.MPK 3a-2l# 58 22 57 127 67-9 67-14 67-19 68 11 68-58 68-60 68-65 68-67 68-72 68-75 99-10 

110-24 

hC.MSC 58 164 

HC.PSZ 38 124 

HC.RS7 S8-104 

HC.SIZ 58-274 

HCOrw 61-1S4 

«40CR 74-26 

HXG»CS 51-64 

HO.BRL 122-16 

NO.BST 122-21 

HO. LOR 125-15 

H0.U8A 121-25 

HQ.VEC 121-29 122-19 12S-6 lSl-214 132-2 132-2 132-2 

HOE 34 - 104 

IS4CI 30-64 

IIAUTO 30-64 126-104 126-124 

IID.N 30-64 129-64 129-134 

IIDU 30-64 

11^ 151 144 132-64 134 9 

I I INI r 30-64 120-64 126-14 127-234 ^ . 

II^KX) 30-64 50 26 30-264 33-16 33-164 34-3 34-34 116-104 1161044 119 3 119 34 129-15 129154 130 5 
130-34 130-64 130-644 131-3 131-34 135-10 155 104/ 

liHSG 50 84 57-144 57-164 57-164 57-204 57 224 57-244 57 264 57 284 57-504 57-524 57-54# 57 564 57-584 
57-404 57-424 57-444 57-464 §7-464 57-504 57-57? 57-594 57 624 57-644 57-764 57-764 57-604 57 824 
57-644 57-664 57-664 57-904 57-924 57-944 57-f>4 57 994 57-1014 57-1034 57 1054 57 1074 57 1094 57 1114 
57-1134 57-1154 57-1174 57-1194 57-1214 

IIPftOT 30-64 119-104 

IIPTAB 30-64 136-3 136-34 136-11 136-114 

IIPUR 30 64 

IIRPT 30-64 

IISEG SO 64 130-5 

ISSCTU 30-64 136-1 136-14 136-5 136-13 136-134 

XISTT 153-124 134-9 134-104 

IISRV 30-64 106-104 106-144 107-164 107-214 116-54 116-94 

IlSUe 30-64 130-5 

IITST 30-64 130 5 130-54 130-22 130-26 150-62 130-83 l50-85«> 130-854 

IBC 34-104 

lOU 34-104 

lER 34 - 104 

I»#"0 69-5 74-154 7^ 14 76 14 

I>#ae 74-16 74-564 

It^Ol 74-18 74 524 
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<r 


68 - IS 














5A P7 


S7'- 158 


68 


. 5 


68 


45 








58-27 


68 


■ 18 


105 ' 


. 19 


103- 


21 


65-40 


65-50* 


102 


■ 19* 










58-23 


101 18 














58-19 


58 20 


1 10 


25* 


1 10 


26* 






58-24 


57 125 


68 


55* 


99 


5* 


99 


'4* 


58 21 


58-25 














58-16 
















58-16 


109-21 


110 


4 










68- 74* 


102 - 18* 














38-21 
















38 22 


57 127 


67' 


■ 9 


67 


- 14 


67 


• 19 


38 17 


38-18 


110' 


■23* 


110 


-24* 


111 


21 


38-22 


36-24 


101 


■19 


101 


■25 






38-16 


58-20 


109 


-21 


110 


4 






61-13 
















63-26 
















74-56 


60-134 














130-56 


130-64 














123-3 


131-224 


132 


-5 


152 


-3 


132 


-5 


123-9 


131-234 


132 


• 4 


132 


-4 


132 


-4 


125-22 


131-244 


132 


-5 


132 


-5 


132 


-5 


131-204 


132-1 


132 


•1 


132 


-1 






122-19 


123-6 


131 


-214 


132 


-2 


132 


-2 



/OOEOO POP 11 UDA ORV THTR HACRO V05.00 tu*«4a» .^4 May 84 10:10 Pag* S A 





74 


74 


-P4# 

- 1 ^ • 






It^OP 




74 


-274 








74 -284 


74 


-41 






INITl 


\PO \ \ 


120 




12i3. 




INITIO 


iHfc^ * WW 


124 


-IS 

A ^ 






INITI 1 




IPS 








INIT 12 


IPS- 13# 


IPS 

AC^ 


A ' 






INIT15 


IPS 14 


IPS 

AC ^ 


.Pl# 
C A w 






INI T 14 


124 -S 


126 

AC. W 








INITIO 












INIT? 


120-22 


IPO 
AC V 


-25 

c ^ 


IPO 


504 


INITS 


120-514 










INIT4 


121 - 1S# 


125 

AC 


-17 

A ' 






INITS 


121 -214 


121 

AC A 


-55 






INIT"* 


122-264 


IPP 
ACC 


-28 

C w 






INIT6 




126 

ACW 


■ 5 






INI TOT 


120- 184 


120 

ACW 


-29 






INZTXX 


126 • 124 










ZPAOftS 


51-544 


62 


14 


121 ■ 


■6 


ISA 


54-104 










IXE 


54-104 










JtJMP 


50-84 










KNO 


130-47 


120 


-544 






KU.6RL 


50-514 


120-49* 


120 


52 


KU.CSR 




65 


•51 


80- 

WW 




•<U.EL 


50-544 


65 


-55 


65- 

W 


■S6 




120-S9* 


120-40* 






KU HZ 


SO-SS# 


loa 


-16 


117- 


. Ill 


KU VEC 


SO-U# 


120 


-50* 


IPO 
A£V 




KUllZ 




120 


-52 






KUOUT. 


116-8 

• AW W 


120 


-574 


lPO< 


■ 55 


KvES 


120-42 

ACW 


120 


-44 


IPO' 

AcV 


-AAA 


LtACP 












LIAPT 


so -544 










LIAUT 


50-544 










LI AUTO 


50-54 


128 


-104 






LICCP 


50-544 










liclea 


50-54 


129 


-84 






L JCO 


50 544 










LIOCPO 


50-544 










LIOESC 


50-54 


52 


164 






LtOCSP 


50-544 








LfUCVP 


50 544 










LtOISP 


50-54 


51 


94 






U lOLV 


50-544 










LIOTP 


50-544 










LlOTrP 


50-544 










LtOUT 


50-544 










U»OVTt 


50-54 


52 


12# 






L»EF 


50-544 










LIEMVI 


50-544 










LIE TP 


50-544 










LIEXPl 


50-544 










LIEXP4 


50-544 










L»EXP5 


50-544 










LIMARO 


50-54 


151 


14 


151 


144 



122 4 



104 114-28 116-8* 117-15 120-58* 120 45* 120-48* 120-55* 

104-24 104-27 108-26 108-27 108-28 114 50 114-55 116-6* 116-7* 117 16 117-17 
120-51* 
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V.IHIME 50 54# 

L l>#»CF 50 -;4# 

LtHPTP 30 34* 

LIHU SO 34 52-10 5?- 10* 
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57-42 
57-78 
57-99 
57-115 
155-8 
50-104 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
52-12 
57-20 
57-92 
59-7 
62-11 
62-12 
62-28 

65- 8 

66- 56 

67- 21 

68- 8 
72-22 
74-52 
77-24 
95 12 
95 14 
95-14 
95-16 
95-18 



98-20 98-20 



99 10 



50 54 
50-54 
50-54 
55-10 
57-26 
57-46 
57-78 
57-99 
57-119 
155-8 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
52-12 
57-24 
57-97 
59-7 
62-11 
62-12 
62-28 

65- 8 

66- 56 

67- 21 
66-8 
72-22 
74-52 
77-24 
95-12 
95-14 
95-14 
95 16 
95-18 
98-20 



50-54 
50-54 
50-54 
52-12 
57-26 
57-46 
57-82 
57-99 
57-119 
155-8 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 

50- 54 

51- 9 

52- 12 
57 -2« 
57-101 
59-7 
62-11 
62-12 
62-28 

65- 24 

66- 56 

67- 21 

68- 8 
72-22 
74-52 
77-24 
95-12 
95-14 
95-16 
95-16 
95-18 
98-20 



50-34 
50-54 
50-54 
52-16 
57-50 
57-46 
57-82 
57- 105 
57-119 
155-84 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 

50- 54 

51- 9 

52- 12 
57-52 
57-105 
59-7 
62-11 
62-22 
62-28 

65- 24 

66- 56 

67- 21 

68- 8 
72-22 
74-52 
77-24 
95-12 
95-14 
95-16 
95-16 
95-18 
98 20 



30-34 

30-54 

50-54 

57-114 

57-50 

57-50 

57-82 

57- 105 

58- 44 

50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 
50-54 

50- 54 

51- 9 

52- 12 
57-56 
57-109 

59- 7 
62-U 
62-22 
62-28 

65- 24 

66- 56 

67- 21 
66-8 
72-22 
77-19 
77-24 
95-12 
95-14 
95-16 
95-16 
95-18 
98-20 



50-54 


50-54 


30-54 


30-54 


50-54 


50-54 


SO- 


34 


30 


34 


30-54 


50-54 


50-54 


50-54 


50-34 


50-54 


SO- 


54 


30 


-34 


50-54 


50-54 


50-54 


30-54 


30-54 


50-54 


SI 


9 


52 


10 


57-14 


57-14 


57-14 


57-18 


57-18 


57-18 


57- 


22 


57 


22 


57-50 


57-54 


57-54 


57-54 


57-58 


57-58 


57- 


38 


57 


-42 


57-50 


57-50 


57-59 


57-59 


57-59 


57-64 


57 


64 


57 


-64 


57-86 


57-86 


57-66 


57-90 


57-90 


57-90 


57- 


94 


57 


-94 


57-105 


57-107 


57-107 


57-107 


57-111 


57-111 


57 


111 


57 


-115 


L06-10 


107-16 


116-5 


119-10 


120-8 


128-10 


129 


6 


131 


-14 



50-54 


30-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-54 


50-34 


50-54 


50-54 


50-54 


51-9 


51-9 


51-9 


52-12 


52-16 


52-16 


57-40 


57-44 


57-46 


57-115 


57-117 


57-121 


59-7 


59-7 


59-6 


62-U 


62-11 


62-11 


62-22 


62-22 


62-22 


62-26 


62-26 


62-50 


65-24 


6S-24 


65-24 


66-56 


66-56 


66-56 


67-21 


67-21 


67-21 


66-6 


66-6 


66-6 


72-22 


74-32 


74-52 


77-19 


77-19 


77-20 


77-25 


77-25 


77-25 


95-12 


95-12 


95-12 


95-14 


95-14 


95-14 


95-16 


95-16 


95-16 


95-16 


95-18 


95-18 


95-16 


95-18 


95-16 


98-20 


98-20 


98-20 



50-34 

50-54 

50-34 

50-34 

50-54 

50-54 

50-54 

50-54 

50-34 

50-54 

52-10 

52-16 

57-57 

56-14 

59-6 

62-11 

62-22 

62-50 

65- 24 

66- 56 

67- 21 
72-22 
74-52 
77-20 
95-12 
95-12 
95-14 
95- 16 
95-18 
95-18 
98-20 



50-34 

30-34 

SO-S4 

50-54 

50-54 

50-54 

50-54 

50-54 

50-54 

50-54 

52-10 

52-16 

57-62 

59-7 

59-8 

62-11 

62-28 

62-50 

65- 24 

66- 56 

67- 21 
72-22 
74-52 
77-20 
95-12 
95-12 
95-14 
95-16 
95-18 
95 18 
98-20 



50-34 

50-54 

50 54 

50-54 

50-34 

50-54 

50-54 

50-34 

50-54 

50-54 

52-10 

52-16 

57-76 

59-7 

62-11 

62-11 

62-26 

64- 12 

65- 24 

66- 56 
66-8 
72 22 
74-52 
77-20 
95-12 
95-12 
95-14 
95-16 

95- 16 

96- 20 
96-20 



30 34 

30-54 

50-34 

30-34 

30 34 

30-34 

50-54 

50-54 

50-54 

50-54 

55-10 

52-16 

57-80 

59 7 

62-11 

62-11 

62 28 

64- 12 

65- 24 

66- 56 
66-6 
72-22 
74-52 
77-20 
95-12 
95-12 
95-14 
95-16 

95- 16 

96- 20 
96-20 



30 54 
30-54 
30 54 



30 
50 

50 



34 
34 
54 



30-54 
30 34 



50 

50 



-34 
34 



53-10 

57-84 

57-84 

59-7 

62-11 

62-11 

62-28 

64- 12 

65- 24 
67-21 

66- 6 
72-22 
74-52 
77-20 
95 12 
95-14 
95-14 
95-16 

95- 16 

96- 20 
96-20 



f.1 I r 

t X J 

ZUOfcOO POP U UOA ORV mTR MACRC V05.00 Tuesday 24 hay 8) 10:10 Pag* S-16 SEd 016« 

Ci>o«s rafaranca tabla (CHEF VOS.OO) 

96-20 100-5 100-3 100-3 100-S 100-3 100-3 100-3 100-3 100-3 100-S 100 3 100-3 104-21 

104- 21 104-21 104-29 104-29 104-29 104-29 104-29 104-29 104-29 104-29 104.?9 104 29 104 29 104-29 

105- 5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 I0t-14 106-14 
106 14 107-21 107-21 107-21 109-55 109-35 109-35 109-55 109-35 109-35 109 35 109-35 109-55 109 55 
109-55 109-55 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109 54 1C9-S4 109-54 
110 11 110-11 110-11 110-11 110-11 110-11 110-11 110-11 110-11 110-11 110-11 110-11 111-12 111-12 
11112 111-27 111-27 111-27 11127 111-27 111-27 111-27 111-27 HI 27 111-27 11127 111-27 lU 27 
111-27 111-27 111 27 111-27 111-27 lll-SO 111-50 111-50 111-50 111 30 111-30 111-55 11135 111-55 
111-53 111-53 111-55 111-33 111-55 111-53 111-53 111-53 111-35 115-44 115-44 115-44 113-44 113-44 
115-44 115-44 llS-44 115-44 115-44 115-44 115-44 114-27 114-27 114-27 114-56 114-56 114-36 114-36 

114- 36 114-56 114-56 114-56 114-56 114-56 114-56 114-36 115-5 115-5 115-5 115-5 115-5 115 5 

115- 5 115-5 115-5 115-5 115-5 115-5 116-9 116-9 116-9 118-1 118-1 118-1 118 1 118-1 
118 I 118-1 118-1 118 1 118-1 1161 118-1 118-1 118-1 118-1 118-1 1161 118-1 118 1 
118-1 116 1 116-1 118-1 118-1 12C-10 120-10 120-10 120-10 120-10 120-10 120-11 120-11 120-11 
120-12 120-12 120-12 120-12 120-12 120-12 120-13 120-15 120-15 120-14 120-14 120-14 120-14 120-14 
120-14 120-15 120-15 120-15 120-16 120-16 120-16 120-16 120-16 120-16 120-17 120-17 120-17 120-18 
120-16 120-16 120-32 120-32 120-32 120-52 120-32 120-52 120-41 120-41 120-41 120-41 120-41 120-41 
120-42 120-42 120-42 120-43 120-43 120-43 120-43 120-43 120-43 120-44 120-44 120-44 120-52 120-52 
120-S2 120-52 120-52 120-52 120-52 120-52 120-52 120-52 120-52 120-52 120-52 120-52 120-52 120-52 
120-52 120-52 121-15 121-15 121-15 121-15 121-15 121-15 121-16 121-16 121-16 124-4 124 4 124-4 
124-4 124-4 124-4 124-5 124-5 124-5 126-12 126-12 126-12 126-12 126-12 126-12 126 14 126-14 

126- 14 126-14 126-14 126-14 127-3 127-3 127-3 127-3 127-3 127-5 127-S 127-5 127-3 127-5 

127- 5 127-5 127-4 127-4 127-4 127-6 127-6 127-6 127-6 127-6 127-6 127-8 127-8 127-6 
127-6 127-6 127-6 127-9 127-9 127-9 127-14 127-14 127-14 127-14 127-14 127-14 127-14 127-14 
127-14 127-14 127-14 127-14 127-15 127-15 127-15 127-20 127-20 127-20 127-20 127-20 127-20 127 20 
127-20 127 20 127-20 127-},' 127-20 127-21 127-21 127-21 127-25 127-25 127-25 126-12 126-12 128-12 

129- 15 129-15 129-15 150-7 150-7 lSO-7 150-6 150-6 150-6 150-10 150-10 150-10 150-10 150-10 
150-10 150-10 150-10 150-10 130-10 150-10 150-10 150-10 150-10 150-10 150-10 150-10 150-10 150-19 
150-19 150-19 150-20 150-20 150-20 150-21 150-21 150-21 150-21 150-21 150-21 150-21 150-21 150-21 

130- 21 150-21 150-21 150-22 150-22 150-22 150-22 150-22 150-22 150-27 150-27 150-27 150-27 150-27 
150-27 150-27 150-27 150-27 150-27 150-27 150-27 150-26 150-26 150-28 150-26 150-28 150-28 150-51 
150-51 150-51 150-51 15C-51 150-51 150-51 150-51 150-51 150-51 150-51 150-51 130-51 150-31 150-51 
150-51 150-51 150-51 150-51 150-51 150-51 150-51 150-51 150-51 150-52 150-52 150-52 150-52 150-52 
150-52 150-44 150-44 150-44 150-44 150-44 150-44 150-44 150-44 150-44 150-44 150-44 150-44 150-44 
130-44 150-44 150-44 150-44 150-44 150-44 130-44 150-44 150-44 150-44 150-44 150-64 150-64 150-64 
150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 150-64 
150-64 150-62 150-62 150-62 150-62 150-62 150-62 150-65 150-63 150-65 151-14 151-14 151-14 152-1 
152-1 152-1 152-1 152-1 152-1 152-1 152-1 152-1 152-1 152-1 152-1 152-2 152-2 152-2 
152-2 152-2 152-2 152-2 152-2 152-2 152-2 152-2 152-2 152-5 152-5 152-5 152-5 152-5 
132-3 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-4 152-4 152-4 152-4 
132-4 152-4 152-4 152-4 152-4 152-4 152-4 152-4 152-4 152-4 152-4 152 5 132-5 152-5 
132-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-5 152-6 152-6 
132-6 155-12 155-12 155-12 154-1 154-1 154-1 154-1 154-1 154-1 154-1 154-1 154-1 154-2 
134-2 154-2 154-5 154-5 154-5 154-5 154-5 154-5 154-5 154-5 154-5 154 4 154-4 154-4 
134-5 154-5 154-5 154-5 154-5 154-5 154-5 154-5 154-5 154-6 154-6 154-6 154-7 154 7 
134-7 154-7 154-7 154-7 154-7 154-7 154-7 154-6 154-6 154-6 154-9 154-9 154-9 154-9 
134-9 154-9 154-10 154-10 154-10 155-8 155-6 155-6 155-6 155-6 155-6 155-6 155-6 155-8 
156-5 136-5 156-5 156-5 136-3 136-5 

SVCSUB 30-64 50-12* 57-104 56-5* 

SVCTAG 50-64 50-14# 52-17 55-14 ^7.12# 57. 16 57. I6 57-16 57-20 57-20 57-20 57-24 57-24 57 24 

57-28 57-26 57-26 57-52 57 -5^ 57-52 57-56 57-56 57-56 57-40 57-40 57-40 57-44 57-44 

57-44 57-46 57-48 57-48 57-57 57-57 57-57 57-62 57-62 57-62 57-76 57-76 57-76 57 80 

57-60 57-60 57-64 57-64 57-64 57-66 57-68 57-66 57-92 57-92 57-92 57-97 57 97 57 97 

57-101 57-101 57-101 57-105 57-105 57-105 57-109 57-109 57-109 57-115 57-113 57-115 57-117 57 

57-117 57-121 57-121 57-121 56-54 106-14 107-21 116-9 116-1 127-25 128-12 129-15 150 10 130-31 

130-44 150-63 132-6 134-10 136-5 136-11 
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r; 




7 r 


20 


/' 24 


105 


5 


109- 


55 


109 


54 


110 


i; 


111 


12 


111 27 


120 


1? 


120- 


14 


120 


16 


120- 


16 


120 


52 


120-41 


127- 


8 


12' 


9 


127 


14 


127 


15 


127 


20 


127 ii 


ISO- 


?7 


IW 


28 


ISO 


Si 


ISO 


S2 


ISO- 


44 


ISC 64 


150 


45 


150 


57 


150 


-67 












45 


-16 


45 


-16* 


45 


-19 


45 


-19 


45 


194 


45-20 


45 


-54 


45 


-54 


45 


-544 


45 


-55 


45 


- 55 


45-55* 


45 


-S64 


45 


-59 


45 


- 39 


4D 


- 59* 


4D 






45 


-45 


45 


-45* 


45 


-44 


45 


44 


45 


440 


45-45 


45 


-49 


46 


-7* 


46 


9 


46 


-9 


46 


9* 


46-10 


151 


-20 


151 


-20* 


151 


-21 


151 


21 


151 


-21* 


151 22 


155 


-164 


155 


-16 


155 


-16 


155 


16* 









1; 



/UOCDC POP 11 COA ORv »NTR MACRO VOS.OO locsda, .'4 Hay A« lOilO P 

Ci*o«« •^f«r«nc« tabU tCWr V05.00) 

U0AIR4 115 9 115 5't 

UOAIRC 115-15 ll5-?4 115-5^ 115 429 

LOAXRX 115-45 115 46« 

UDAISE 111 SS 112 9 11211 112 19* 

UOAXSG 111 52 112 5« 

UOAISL 112-8* 112-16 

UDAIST 109-20 111- 12* 

(JOAISX 112-14 112-18* 

UOMSl 114-25* 114-29 114-52 114 54 

U0ARS2 114 26 115-5# 

ODARSO 57-61 11^5* 112 12* 112 15 114 19* 114 25 

UDARSC 114 57 115-6* 

'XARSP 109-41 112-8 114 16* 

UOARSX 115-4 115 11* 

UOASRV 107 -IS* 122-23 

UF.576 42 12# 

UF.CMR 42 5# 

i^.Cm 42-4# 

ur.XNA 42 •6« 

ur.RPj. 42-5# 

Uf.SCH 42 7» 

UT.SCL 42.S« 

Or.lAN 42-9* 

JF.gpH 42-10* 

ir.t*»S 42-ll# 

lTRECZ 50-2l# 65-55« 66-5 66 15« 74-21 74-25* 

URNZNC 50-lft« 65-16* 63-51* 65-40 66-32* 

URUN 50-17# 63-15* 65-20 65-7 

MAITMS 99-8 104-11* 

tMOtCS 53-6« 130- 10 

WNSTOP 54-l8# 74-40 

k««STRT 54-21# 150-6 

XIALUA 30-6* 

xlfALS 30-8« 

xiOrrs 50-8# 134-2 154-4 1S4-6 154-8 

xtTRUE 30-8# 134-2 154-4 154-6 134-8 

XI 55-5# 57-15 

XIO 55-13# 57-59 

xlOO 55-41* 57-116 

'lOl 55-42* 57-120 

X14 55-14* 57 45 

XI* 55-1* 57-15 

X2 55-6* 57-19 

X20 55-18* 57-47 

X21 55-22* 57-56 

X22 55-24* 57-61 

X25A 55-26* 57-65 

X23e 55 SO* 57-69 

*24 55-31* 57-79 

X25 55-33* 57-83 

X2A 55-2* 57-19 

X3 55 -7# 57 23 

X30 55-35* 5787 

X5l 55-36* 57-91 

X52 55-57* 57-95 

X36 55-38* 57 108 




115 16* 



/UKOO POP II UOA 0(tV >nTR HACRO V05.U0 Iu«94<a» 

Cf^« »^f«r«*tc« table (CREF VOS.OO) 

x5' 55 40« 57. 11^ 

x»A 55 -S* 57 -2S 

X4 55 -8# 57-27 

X8 55 10* 57 -SI 

xe« 55-«# 57 51 

X9 55 I U 57. 55 

XF»u 56-8# 57-75 90 5 

XHSGl 56-l# 57-156 

XHSCi 56 2# 57-140 

XPKTI 56 5# 57-125 

xPKT? 56 57 129 

xSA 56 7# 91-5 

^tMHl9 51-5l# 118-92 

t£AA20 51-52* 118 95 

tERl 118-69# 118-82 

t£«2 118 70 118-72 118-85* 

TER5 118 86 118 -92* 

VER4 118-94 118-964 118-99 

iER5 118-91 118-97 118-1004 118 101 



13 lOtlO Pao* S ^1 



t in 

/tOEOO POP II UOA 0«v rMTR fWCBO V05.00 IvjcsdSk May «5 10:10 Pao* 11 'i' r.i/,. 

C»w« r«f«r«nc« table iC9f.f VO^.OO) ■'^ '* 

.BR 47 31* 

Ai« 4/ S# 57-55 98 I' III 15 

ASSLtili 47 59# 65 27 ^ ?0 7S-S6 79 15 60-16 80 17 120-27 12124 12125 ISO 42 IS0-4S 

8C0r*>t. 120 11 120-15 120-15 120-17 UO 42 120-44 150-20 * i»v 

BGNAUT 120 10 

BCNCLN 129 6 

BGNHRO 151 14 

BOMJ 52-10 

BGNINI 120-8 

8G»#100 50-26 54 5 119-5 150 3 151-5 

BGWSG 57-14 57 18 57-22 57 26 -.7 30 57-54 57-58 5/-42 57-46 57 50 57.5» 57-64 5 7-78 5 / 82 

5786 57-90 57 94 57 99 57-105 57 107 57-111 57-115 57-119 

BOHPHO 119-10 

BG»*TA 156-5 

BGNSCT 136-1 

BGNSf^ 155 12 

BCNSRV 106 10 107 18 1165 

BGNSU 55 10 

BGNTST 150-5 

BNCOMP 77-25 121-16 124-5 150-8 

8»€AK 62-12 65-8 104-21 111-12 114 27 

BOILO 84-17# 85-9 85-21 

CLOCK 120-41 120-45 

Close 64 -12 77-19 

CLRVtC 62-22 111-50 
OeSCRI 52-16 
OevTYP 52-12 
OlSPAT 51-9 

OISPLA 154-9 
OOCLN 59 8 
END 55-29* 

e»©AuT 128-12 

ENOCLK 129-15 

E»A»«0 152-6 
EHOMU 52-17 

EX>INI 127 25 

ENDMOD 55-16 .-^ 

E»CrtSG 57-16 57 20 57-24 57-28 57-52 57-36 57-40 57-44 57-48 57-57 57-62 57 76 57-80 57 84 
c^*^ ^' '2 5^-'^ 57-101 57-105 57-109 57-115 57-117 57-121 

cNUfffO 119-16 

CWTA 156-11 

EWSET 156-15 

E>CSrT 154-10 

E»OSRV 106-14 
E»OSU 55-14 

E»CTST 150-85 

ENTRT 85-54 85-9 85-9 85 9 85-9 85-9 85-9 85-9 85-9 85-154 85-21 85-21 85-21 85-21 

85-21 
EQUALS 54-10 

EWfflF 62-28 .65 24 ,66-56 67-21 68-8 72-22 74-52 100-5 104-29 105-5 109-55 109 54 110 11 111 35 

E«»Sr 59-7 

EXIT 126-14 
GCTBtT 77-24 

GTIANIO 118-1 

GMANXL 150 10 



62-50 


120-18 


127-4 


127 


-9 


127 


-15 


127 


-21 


45-49 


46-15 


151-25 


155 


-25 










118-104 


129-15 


150-84 


155 


10 










57 20 


57-24 


57-28 


57 


-32 


57 


-36 


57 


-40 


57-92 


57-97 


57-101 


57 


-105 


57 


-109 


57 


-113 


107-21 


116-9 
















85-9 


85-9 


85 9 


85 


-9 


85 


-9 


85 


-9 


85-21 


85-21 


85-21 












65-24 


66-56 


67-21 


68 


-8 


72 


-22 


74 


-52 


U4 56 


115-5 












127-5 


127-8 


127-14 


127 


20 


150 


-21 


130 


-27 


150-22 


150-28 


150-82 










150-51 


150 44 

















( ; i 

/UDCDO POP U UDA ORv VMTR MACRO V05.00 Iu«»day ^4 May 89 }0:10 Pag* 1 ^ 
C'-oss r*ferer»ca t<^l» CCfiF*^ VOi.OO) 



'jtQ 0175 



CPHARO 

GPRMO 
GPBM. 
HEAOCR 
ITEM 



LASTAO 
MtBvTE 
MIC*«C 
MICNTO 

MICOIM 
MIOATA 



MIOCCR 



MIDE^A 
M»E»CE 

MIERRI 

MIEXCP 

MIEXI'- 
MIFXSE 
MIEXTj 
MIGCN 



121 15 

\12 X 

118-1 

ISO 10 
50-54 
35 24* 
45 40 

131 - 23 
135-8 

30-54 

126- 14 
116 1 

132- 4 
95-12 
30 34 
SO 34 
SO 54 
52- 16* 
32-17 
57-52 
57-76 
57-105 

116-9 

130-63 

118-1 

132-4 
32-l7# 
57-76# 

116-9* 
59 7 
74-32 

111-33 

127- 20 
116-1 
132-2* 
126-14 
126 14* 
126-14* 

50 34 



SO 
30 



34 
34 



MtGENB 



50 54* 
SO 54# 
30-34* 

S3 10 
57-18 
57 32 
57-46 
57-76 
57-90 
57 105 
57-119 

116 9 

129-8 

lSl-14 

116-1 



124 4 

152-2 
1181* 

130 10* 

45-12 
45-41 

131 24 

30-34 
126 14« 
118-1* 
132-4* 

95-12* 

30 54 

30-34 

30-34 

32 17* 
57-32* 
57-76* 
57-105* 

116-9* 

130-83* 

116-1* 

132-4* 
S3-14* 
57-6-0* 

116-104* 
59-7* 
74-32* 

111-53* 

127-20* 

116-1 

152-5 

126-14* 

150-22* 

130- 22* 
30-34 
30-34 
SO 54 
SO 34* 
30-34* 
30-34* 
S3 -10 
57-18* 
57-32* 
57-46* 
57-76* 
57 90* 
57 105* 
57-119* 

116 9* 
129-6* 

131- 14* 
116 1* 



150-51 
1341 

45-13 
45 42 
133 18 

30-34 
130-22 
130-10 
152 5 
95-14 
50-54 
50-54 
30-54 

55-14 
57-56 
57-60 
57 109 
116-104 
150-64 
150-10 
152-5 
55-16* 
57-64* 
127-25* 
62-28 
100-5 

115- 44 
150-21 
118-1* 
152-5 
150-22 
150-28* 
150-28* 

50-54 

50-54 

50-54 

50-54* 

50-34* 

30-34* 

33-10* 

57-20 

57-54 

57-46 

57-78 

57-92 

57-107 

57-121 

116- 1 
129 13 
132 6 
150-10 



150-3M 
134 S 

45-16 
45 43 



ISO 44 
134-5 

45-19 
45 44 



30-34* 

150-22* 
150-10* 
152-5* 

95-14* 

50-54 

50-54 

50-54 

55-14* 
57-56* 
57-80* 
57-109* 
116-104* 
150-84* 
150-10* 
1S2-S* 
57-16* 
57-88* 

128- 12* 
62-28* 

100-5* 
115-44* 
130-21* 
150-51 
152-5* 
150-22* 
150-82* 
150-62* 
50-54 
30-54 
50-54 
50-54* 
50-34* 
30-54* 
33-10* 
S"* 20* 
57-34* 
57-46* 
57 78* 
57-92* 
57-107* 
57-121* 
118-1* 

129- 13* 
132 6* 

130- 10* 



130-28 
130-51 
154-1 
95-16 
50-54 
30-54 
50-54 

55-16 
57- 40 
57-84 
57-115 
119-16 
152 6 
150-51 
1S4-1 
57-20* 
57-92* 
129-15* 
65-24 
104-29 
114-36 
150-27 
150-51 
152-4 
150-26 



50-34 
50-54 
30-34 
30-34* 
50-54* 
50-54* 
55-14 
57- 22 
57-36 
57-50 
57-80 
57-94 
57-109 
106-10 
119-10 
130 5 
135-12 
130-31 



130-44* 132 S 
154 7 



45 20 
45-45 



130-28* 
130-31* 
134 1* 

95-16* 

30-54 

30-34 

30-54 

55-16* 
57-40* 
57-84* 
57-115* 
119-16* 
152-6* 
150-51* 
154-1* 
57-24* 
57-97* 
129-15* 
65-24* 
104-29* 
114-56* 
150-27* 
150-51* 
152-4 
150-28* 



50-54 
50-34 
50-54 
50-34* 
50-54* 
50-54* 
55 14* 
57-22* 
57-56* 
57-50* 
57-60* 
57-94* 
57-109* 
106-10* 
119-10* 
150-5* 
133-12* 
130-31* 



45-21 
45-46 



132-4 



45 22 
45-47 



IS2 5 



45-54 
46 9 



45-35 
46 10 



45 56 

46 1% 



45-5/ 
ISl 



130-62 
130-44 
154-3 

95-16 

30-54 

50-54 

50-54 

57-16 

57-44 

57-88 

57-117 
127-25 
154 10 
lSO-44 
154-5 

57-28* 

57-101* 
150-85* 

66-36 
105-5 
115-5 



130-82* 
150-44* 
154-5* 

95-18* 

50-54 

50-54 

50-54 

57-16* 
57-44* 
57-88* 
57-117* 
127-23* 
154-10* 
150-44* 
154-5* 
57-52* 
57-105* 
150-84* 
66-56* 
105-5* 
115-5* 



152 1 

154- 5 
150-64 

50-54 
50-54 
50-54 

57-20 
57-48 
57-92 
57-121 
128-12 

155- 10 
132-1 
154-5 

57-56* 
57-109* 

152-6* 
67-21 

109-55 

127-5 



132 1* 132-2 132 2* 

134-5* 134-7 154^* 
150-64* 

50-54 50-54 50-54 

50-34 50-54 50-54 

50 34* 30-54* 52-12 



57-20* 
57-48* 
57-92* 
57 -Ul* 

128-12* 

155-10* 

152-1* 

154-5* 
57-40* 
57-115* 

154-10* 
67-21* 

109-55* 

127-5* 



57-24 

57-57 

57-97 
106-14 
129-15 
156-5 
152-2 
154-7 

57-44* 

57-117* 
135-10* 

68-8 
109-54 
127-8 



150-44 


150-44 


150-44* 


152-1 


152 


■1 


152-4* 


152-5 


152-5 


152-5* 






150-82 


150-82* 










50-54 


50-54 


50-54 


50-54 


50 


54 


50-54 


50-54 


50-54 


50-54 


50 


-54 


30 34 


50-54 


50-34 


50-54 


50 


-54* 


30-54* 


50-54* 


50-54* 


50-54* 


50 


54* 


50-54* 


50 54* 


50-54* 


50-54* 


50 


-34* 


51-9 


51-9* 


52-10 


52-10 


32 


10* 


52-12 


52-12* 


52-16 


52-16* 


57 


-14 


57-24 


57-24* 


57-26 


57-26* 


57 


-28 


57-58 


57-58* 


57-40 


57-40* 


57 


-42 


57-57 


57-57* 


57-59 


57-59* 


57 


-62 


57-82 


57-82* 


57-64 


57-84* 


57 


-66 


57-97 


57-97* 


57-99 


57-99* 


57 


-101 


57-111 


57-111* 


57-115 


57-115* 


57 


-115 


1C6 14 


106-14* 


107-18 


107-18* 


107 


21 


120-8 


120-8* 


127-23 


127-25* 


128 


-10 


130 10 


150-10* 


130-31 


150-31* 


150 


44 


134-10 


154-10* 


135-8 


155-6* 


136 


3 


150-44 


150-44# 











57 24* 
57-57* 
57-97* 

106-14* 

129-15* 

136-5* 

152-2* 

154-7* 
57-48* 
57 121* 

68-8* 
109-54* 
127-8* 

152 1* 



30-34 
30-54 
SO 34* 
30-34* 
30-34* 
32- lO* 
57-14* 
57-26* 
57-42* 
57-62* 
57-66C 
57-101* 
57 115* 
107 21* 
128-10* 
130-44* 
156 3* 



151 21 



iSi- 5 



30-54 
30-54 
52-12* 

57-26 
57 62 
57 101 
107-21 
129 15 



4S ?9 

1?: 



so 34 
50 54 

52 16 

57-28* 
57- 62* 
57- 101 > 
107-21* 
129-15* 



152 


3 


132 


S* 


57 


57* 


57 


-62* 


106 


-14* 


107 


-21* 


72 


22 


72 


-22* 


110 


11 


110 


-11* 


127 


-14 


127 


-14* 


432 


-2 


152 


-2 


SO 


34 


30 


54 


SO 


-34 


SO 


-34 


so 


-34* 


SO 


34* 


SO 


34* 


SO 


-34* 


so 


-54* 


SO 


34* 


32 


-17 


32 


-17* 


57 


16 


57 


-16* 


57 


-SO 


57 


-SO* 


57 


-44 


57 


-44* 


57 


-64 


57 


-64* 


57 


-68 


57 


86* 


57 


-105 


57 


-103* 


57 


-117 


57 


-117* 


116 


-5 


116 


-5* 


128 


12 


1.28 


-12* 


130 


-83 


130 


83* 


136 


11 


136 


-11* 



1 '\ 

.lOCDO pop U OOA OHV rtlTR MAC«*0 V05.00 TiMStey .?4 May lOjlO Pag* « ^ '>tCi 0176 

C*"©*"! r*f«r«nc* tabi* fCREr VOS.OO^ 

^IGfTS 52 17 52 l'# 55-14 55 14# 5516 55-l6# 57 16 57 16# 57-20 57 20# 57 57-24# 57-28 57 28* 

57-40 57-40# 57-44 57-44# 57 48 57-4a« 57-57 57-57# 57-62 57-629 

57 84 57-e4# 57-88 57-88# 57 92 57-92# 57-97 57-97# 57 ICI 57-101# 

57-115 57.115# 57-117 57.117# 57-121 57.12l# 106 14 106 14# 107 21 107 2l# 

119-16 119-16* 127-25 127-2S# 128 12 128-12* 129 15 129-1S# 129-15 129-154 

1S2-6 1S2-6* 1S4-2 1S4 2* 154-4 1S4-4* 1S4-6 IS4-6* 154 8 154-8* 

HtGETT 126 14* 150-224 150-284 150-824 154-2 154-24 154 4 154-44 154 6 l54-6# 154-8 154 84 

HtGNGR 50 264 50-54 50-54 50-54 50-54 50-54 50-54 50-54 50-54 50-54 50-54 50-54 50 54 50-54 

50-54 50-54 50-54 50-54 50-54 50-54 50-54 50 54 50-54 50-54 

50 54 50-54 50-54 50-54 50-54 50-54 50-54 50-544 50-544 50 544 

50-544 50-544 50-544 50-544 50-544 50-544 50-544 50-544 50 544 30-544 

50-544 50-544 50-544 50-544 50-544 50-544 50-544 50-544 50-54* 50-54* 

50-544 50-544 50-544 51-9 51-94 52-10 52-10 52-104 55-10 55-10 

52-16 52-164 57-14 57-144 57 18 57-184 57-22 57-224 57-26 57-264 

57-58 57584 57-42 57-424 57-46 57464 57 50 57-504 57-59 57 594 

57-82 57-824 57-86 57-864 57-90 57 904 57-94 57-944 57 99 57-994 

57-111 57-1114 57-115 57-1154 57-119 57-1194 106-10 106-104 107-18 107 184 

119- 104 120-8 120-84 128-10 128-104 129-8 129-84 150 54 151-54 151-14 
155-84 

MkGNIN 50 54 50-54 30-34 30-34 30 34 30-34 ,0-34 30-34 30-54 50-34 30-34 50-54 50 54 50-34 

30-34 30-34 50-54 30-34 30-34 30-34 50-54 50-54 50-54 50-54 

30-34 30-34 30-34 30-34 50-34 30-54 30-34 50-54 50 54 50-54 

50-34 30-344 30-344 30-344 30-344 30-344 50-544 50-544 50 544 50-544 

30-344 30-344 30-344 30-344 30-344 30-344 30-344 53-544 30-344 50 544 

30-344 30-344 30-344 30-344 30-344 30-344 30->44 50-544 50-544 50-544 

30-344 30-344 31-9 31-9 31-94 31-94 32-10 32-104 55 10 55-104 

52-16 52-ie 52-164 52-164 57-16 57-164 57-20 57-204 57-24 57-244 

57-36 S7-36« 57-40 57-404 57-44 57-444 57 .4« 57-4«« 57-57 57-574 

57-80 57-a04 57-84 57-644 57-88 57-884 57-92 57-924 57-97 57-974 

57-109 57-1094 57-113 57-llS* 57-117 57-1174 57-121 57-1214 59-7 59-7 

59-74 59-74 59-74 59-8 59-64 62-11 62-11 62-11 62-11 62-11 

62-114 62-114 62-114 62-12 62-124 62-22 62-22 62-224 f>2-22» 62-28 

62-264 62-284 62-264 62-264 62-30 62-304 64-12 64-124 65-8 65-84 

65- 244 65-244 65-244 65-244 65-244 66-36 66-36 66-36 66-36 66-564 
67-21 67-21 67-21 67-21 67-214 67-214 67-214 67-214 67-214 68-8 

66- 64 66-88 66-84 68-84 72-22 72-22 72-22 72-22 12-22* 
74-32 74-32 74-32 74-324 74-324 74-324 74-324 74-324 77-19 77-194 
77-24 77-24 77-244 77-244 77-25 77-254 95-12 95-12 95 12 95-12 
95-124 95-124 95-124 95-14 95-14 95-14 95-14 95-14 95-14 95-144 
95-16 95-16 9516 95-16 95-16 95-16 95-164 95-16* 95-16* 95-164 
95-18 9518 95-16 45-16* 95-16* 95-18* 95-184 95-184 98-20 98-20 
98-20* 98-20* 98-20* 98-20* 98-20* 98-20* 100-3 100 3 100-3 100-5 

100-3* 104-21 104-214 104-29 104-29 104-29 104-29 104-29* 104-39* 104-29* 

105-5 105-5 105-5* 105-5* 105-5* 105-5* 105-5* 106-14 106-144 107-21 
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